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Large amounts of data collected Guning experi 
produced as outputs of programs that simulate s7seene 
usually need further treatment in order to complete the 
research task. One step of the data analysis process is 
the manipulation Gf she Gaca. 

The data, even when stored 1n a COmMpPUEGE, Can Deweew. 
Sidered as inert if it cannot be manipulated. Manipulatiee 
may be considered any appropriate arrangement or transfor- 
mation of a logical data matrix composed by the data. 

The inert data matrix is activated and becomes an 
"Active Matrix" by the developed system IDAMAN (Interactive 
DAta MANager) . It is expected that this system, based Ongiems 
idea of Dr. Daniel Guinier, fulfills the demands for such 
manipulations. Compared to existing similar alternmavive 
systems, this system possesses two particular merits: No 
specific language is required; and the separation oemane 
manipulation task from acquisition and future calculus grants 


to the system a high power of expandability. 
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ieee a Nhe een EP TION OF .DAMAN 


Ewe ILNTRODUCGTION 

Reccaren sim Many seclentrelc Fields is usually involved 
Pepe such a large amount of data that manipulation becomes 
Meer tcCullL, Lime Consuming ama error prone. A large amount 
@eecata Fequires auxXilliary storage such as a disk for backup 
and data processing, while the efficiency required calls 
Mees CEnaACeceos OlGamizarion Of the data file. The accom- 
plishment of such a task requires several considerations. 

Wie iirsSescensideration 1s availability of the data. 
MiPwcelbCes @Lecata are GClther application programs in several 
areas such as language analysis, biology [Refs. 1 and 2], 
Simulation, etc., or observations and measurements during 
experiments. The data are either readily available for 
fa wrollation Of mMUuStL be inserted into the system by the user 
Via the keyboard. 

iiemsecole eens leeration 1S Ehe nature of manipulation 
of the data that has to be performed after it is available in 
the machine. The provided-by-the-system manipulation ability 
has to be such that the manipulated data will be ready for 
the next of the process, namely the mathematical model analysis, 
Graphics, or statistical calculus. The system must also be 
capable epee aM Maltyecascs eas possible: The data must 


mee stored in an organized virtual structure, e.g., easily 


RD 


realized by the user logical table Or Matrix One aee ee 
storage. 

The above considerations call for a computer methodology 
that gives to the system DATA-USER-DATA manager a high level 
of interactivity, and at the end of the fourth step {rig waa 
maximum services with minimum user activity. The data must 
be organized by the user so that it can be easily referred 
to, and manipulated. The creation of such an organizaciem 


of the data can be called a "header" of the data matrix. 


B. CONCEPT OF THE INTERACTIVE DATA MANAGER ee] a 

To perform a complete data processing cycle, the Inter- 
active Data Manager, IDAMAN, supports two Kinds of functions: 

Creation of a header. 

Data manipulation according to the user defined header. 

The user is not involved with the manipulation of the 
data but rather only assigns what manipulation is desired, 
by creating the header of the data matrix. At the same time, 
the system supervises the creation of the appropriate files 
that are transparent to the user. 

1. Creation of the Header 

An interactive-informative communication Detveam 

computer and user creates the header. The created header 


contains information regarding the columns and the Zowseee 


the data matrix. Such information causes the manipulation 
of the data. The header "stent om-aae integers (€.9.) mumees 
of columns, number of rows), reals (e€.g., actual on ieee 


Dey 
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Fig. 1. Process of Data Analysis 


le 


by the user boundary values (extrema) fOr Gach Go ume 
characters (e.g., names of the variables, names of sets of 
observations (rows)). 
Several data of the header are stored in the mass 
storage in a sequential access file for future use. 
2. .-Manipulatiouwes ehemeaea 
The data to be manipulated are stored in mass storage 
in direct access organization files and in the logical form 
of a matrix with dimension NCOL*NROW, where NROW is the 
number of rows (or observations or lines) and NCOL is the 
number of columns (or parameters). 
The manipulation, a transparent operation Of the jaye 
tem, 1s executed during the creation of the header and at 
the same time that each manipulation is assigned. The manipu- 
lation of the data causes the creation of a new direct access 
File in the secondary storage whenever lt 15 Const 
necessary. The same file is used in the opposite casemeam 
Space economy reasons. 
Manipulation functions executed by the IDAMAN are: 
Addition or suppression of Juanes Gr commie 
- Rearrangement of the order of lines or columns (rankitiage 
Transformation, single or multipass, is perfierneama 
analysis of a full input character string (representing 
the transformation) conversion from 1nfix Gow oes 
notation, and evaluation using push—-down stacy. 


assigned transformations may include functions with 


ies 


Seetinenes silen as eile muiroer Or columns (actually the 
value scorresponding to column will be used as an argument), 
reals or integers, and the number of columns (in that 
case the value corresponding to the column number is 
taken to be constant). 

loreinemecolum Guides jscangqle or multiple, where suc- 
cessive sortings are executed as a function of successive 
CGneuinn S . 

Searching for a particw@lar value or a missing value 
involving the entire data matrix or columns and/or rows 
assigned by the user. 

LanedcmeZdsl OMe Oremtew Order FO Climinate problems created 
See wEOmce MlCCe Tem se 1me "errece. 

Merging Of two files--either row-row (one over the 
Suen wou colUmm-coliumm (“one beside the other). 

Display of the data matrix with user defined format via 
the keyboard. 

As soon as the inert data are involved in a manipulation 
process, IDAMAN can be considered as activated. The data 
matrix with its assigned header can be called an "ACTIVE 
DATA MATRIX." 

(epee intce rales meme, Comparison Of three different 
Sencepts: a) an interactive and conversational system for 
data analysis applied to biology [Refs. 1 and 2]; (b) the 
Bee eMporhss (interactive Data Analysis from the Software 
Package for Social Sciences); and (c) the paesemred SysSeem, 


IDAMAN. 
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See oO vee PUA PROPERTIES OF THE DEVELOPED SYSTESs IDASAN 
The developed system IDAMAN has the following properties: 
Universality of the source language: structured FORTRAN 
77 is used for the implementation of the system. 
Portaseelity: Granted by the use"of FORTRAN 77 and the 
organization of the program. The required central memory 
size can even be satisfied by a microcomputer with module 
overlay. 
Simplicity of use: No special knowledge or language is 
required for the use of the system. 
All operations like creation and/or saving the data 
on files, are transparent to the user. Display or 
printing the data contained on these files (header or 
data file) is very simple and does not need any special 


Sos kOeCtsae lon aszeume LOLrmats . 


Pree siSTING SIMILAR SOFTWARE PACKAGES FOR DATA ANALYSIS 
Existing known packages providing the same task can be 
divided into two categories: 
Peed ceGmesuOrouelnesmror specie calculations with- 
out system data manipulation; such systems are the 
HARWELL Library (1981) from the United Kingdom Energy 
WeEiGimneye, eho wlMsl Liabrary (1982), and the System 360 
SU momini nose laiinr ary 19 68). 
Packages of subroutines for calculations with the 
Shoe Om re cima manipulation; een cone are the Bio- 
MeDical Package (BMDP, 1981), and the Statistical 


Peaceeemuan the Social Sciences (SPSS, 1983). 


Ike 


BMDP and SPSS are complete statistical sac. 40-- 
first one 1s produced by UCLA (University G2) Caiiieemeg eee 
Los Angeles) and is oriented toward Bio-medical statistical 
applications. The second is oOrlented £60 SoGgial Senenee 
Statistical applications. These two packages have a wide 
range of applications in statistics but are not intena@maes 
and use their own conventional languages. 

In the SPSS series in data analysis, IDA is presented as 
an interactive data analysis and forecasting system (29e2m 

The difference between the concepts of IDA and IDAMAN is 
that in IDA, the data are manipulated and elaborated by the 
Same program (data summarization, regression, time-series 
analysis, etc.), while in IDAMAN, only manipulation is exe- 
cuted. IDAMAN is strictly a data manipulation system. The 


intention of the design was to separate the two tasks—>—@eme 


sidering them as different. In this way, modularizaciouae 
obtained. The next step of the general task “data analyowee 
can be executed separately by another module. The data; janeem 


the manipulation, are used by independent or interdependent 
modules. Such modules can provide one, two or multiveartaome 
analysis (mathematical and/or statistical) involving one gas 
several samples or/and series of samples. The IDAMAN pro- 
vides the flexibility of executing the same data elaborations 
with the same data in different forms (manipulations). 

The calculation subroutines, described by several Sima 
packages, can be integrated by the process of a calling program 


that reads the data of the header created by the IDAMAN. 


Ly 


Be eS IATE RIAL 

IDAMAN was developed at the Department of Computer Science 
Peto eiave es POstGraduare senool, Monterey, California on the 
VAXI1/780 under the VMS operating system. The disposable 
Virtual memory is 32 Megabytes and the direct-access memory 
is the user's disk RMO5 (256 Megabytes). 

FORTRAN 77 on VAXl11 permits the use of the facilities 
mievem tO a 32 bit or to a 16 bit computer (PDP11 or LSI11 or 
amy Other 16 bit microcomputer precision for integer and real 
numbers, e.g., integers on 2 bytes or on 4 bytes). 

The modularity of the program implementing the IDAMAN 
Bermmles a tEransportability to a lower memory capacity micro- 


memoucer (16 bit or 16 bit-like microcomputer). 


B. OVERVIEW OF FUNCTIONAL CAPABILITIES OF ITDAMAN 

- Column mnemonics: used to assign mnemonic names to 
columns (parameters or variables). 
Row mnemonics: used to assign mnemonic names to 
individual rows and/or sets (or subsets) or rows. In 
this way the data can be retrieved by index (the set 
number) or by the row or set mnemonic name. An example 
Of the usefulness of this operation is the comparison 
Ou Mecies CmmsctSmergmcrhe Cracing of groups Of data. 
Tracing extrema: used to permit the user to change 
Ee lenin ie SS givincgimas "window" for tracing. 
(eet ioe roy che woystomedocs not need additional 
[MtOGiicm tema lOubeeecales ita tracing application program 


1s required. 


in 


Sorting and multi-sorting: usec tO reorganeZoe eae 
according to column guides by sorcing succeseu i) same 
increasing order to generate sets and subsets of rows 
(observations). 

Data retrieval: used to find one or several values 
inside specific fields (column(sS) 68 ow (Ss yea 
specific "gold" number that corresponds to missing Vveauuee 
The process of retrieval is applied in the full matrix 

or in particular parts of it, given by the user ae 
data to be retrieved can be: 

- Identified as erroneous data. 

- Missing data which are referenced as a "gold" 
value internal to the system or changed by the user 
to represent a pseudo-improbable value. 

- Listed, and the associated row, column and index 
numbers are given to the user. This infommacrven 
will be useful for eventual corrections or localiza- 
tion) One ener Visieing: 

Rearrangement: used to eliminate the column guides used 


for multisorting or to partition the data marr eee 


particular elaborations (e.g., multiple partial 
regression). 
Transformations: used to restore some statistical 


properties or to perform directly mathematical operations 
involving data of the matrix and/or numbers. 
Randomization: used to burst the Gmiginaieeoe a. 


avold effects Of time OCP eerecorde aes 


i 


Cenieeesston: used Ee Suppress Some data ror future 
eeetiatreons | logweal = sigeression) without physical 
elboemesstOn On Ene Gata tis Operation can be done 
using a special compressed binary file [Refs. 3 and 4]. 
Pioue, QUE puE:  Ehamsparent FO the user and can be 
directed to the desired device or file. 

- Files generation: operations also transparent and 
executed by assignment of a single key (number of 
alphanumeric) . 

meebisolay of the header's information: used to facilitate 
Ene Use of the program and the creation of the header. 

membtsplay the data: Used to display, on the terminal, the 
manipulated data being on direct access files in secondary 
memory, by a simple command and in format defined by 
the user, if any change of the normal format is required 
ee niin gives HPORTRAN format F9FZ) . 

Merging: Files can be merged in a row-row (one over 
the other) or column-column (one aside the other) sense 


without any particular user involvement. 


ee DESIGN 
ieOcwuase so tructure of IDAMAN 
Figs. 3 and 4 present the structure of IDAMAN, showing 
all the subroutines used and the overlay form. The source 


code of the system is presented in Appendix A. 


Bee Suiete Desert ption of the Subroutines 
ANADIS: Analyzes strings used to assign numbers of columns 


Or rows that have to be displayed, retrieved or 
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ASBYMN: 


Chis rs 


COLINE: 


COLMOD: 


COLNAM: 


COMCOE: 


COMP: 


COMPOL1: 


COMROW : 


CONN: 


rearranged (e.g., 1,4,6:9,3 assiens sues =e -saae 
numbers 1°4°6 7 Gaomee 

Permits the assignment of columns or rows by thease 
mnemonic names. 

Displays on the screen information about the columns 
of the header. 

Presents the selection table of the column informa- 
tion, and calls the appropriate subroutine recasauuam 
the information to be assigned by the user. 

Modifies the information about the columns. 

Assigns mnemonic names to columns. 

Merges (computes) two data files and their headers 
in the column-column (one over the other) sense. 
Computes the values of functions used in the Useu 
assigned expressions for transformations. 

Gets or sets the binary value 0 or 1 in 4 come. 
binary matrix NROW*NCOL for any 21"s ance se 

Merges (combines) two data files and their headers 
in the row-row (one over the other) sense. 

Converts (analyzes) the expression string assigned 
for the transformation in an infix notation Gxprmege 
Sion. This string is composed from character d@tigew 
numbers, letters, delimiters, etc. It is decomposed 
to the several elements that constitute the infix 
expression. It calls the subroutines POSTF and waa 


for further processing of the expression. It Stames 
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CRANK: 


SREATE: 


CRINFO: 


DISDAT: 


BeSPLA: 


aieuresult Of tEMememmetalLItOnwen the next rightmost 
endwet the data matrix—--creating a new column. 
Assigns column ranking by column number or column 
mnemonic names. The assignment of the columns can 
be done as in the previous paragraph and the same 
subroutines are used. After the assignment, it calls 
the corresponding subroutine (RANK1 or RANK2) for 
ranking of columms: 

Creates a new header. It opens the sequential file 
on which information of the created header will be 
Seeored -andapasseomeonenol or, the program to the 
SUbrOULI Mowe RG =rene thesend ofthe "creation, it 
Cates VER ter recording Of information, which 
resides in the main memory, to the opened file in 
Mas SuStomace: 

Determines if either column or row information is 

to be assigned next. It calls the appropriate 
subroutine COLINF or ROWINF. 

Displays any or all user assigned (columns, rows) 
parts of the data file. 

Displays on the CRT the information related to the 
columns and rows of a previously defined header. It 
opens the sequential file on which information is 
stored, calls READER which reads the information and 
stores 1t in the main memory and then calls CDISP 
and RDWSP which display information about columns 


and @irows< 
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Der REM : 


EAXASHIE: 


Bice: 


FINDMM: 


PORM: 


Bie Ori 


EVAL: 


MERGE: 


MOIR Y: 


Assigns tracing extrema. 

Executes internal and address caleuea wie oe 
using Shell's method to rank elements in increasame 
order, modified for address eaten eae wener 

Opens at run time, direct access imtermacc-asem 
sequential files named 'FORnnn.DAT'. 

Evaluates the minimum and maximum value of each 
column of the data matrix: 

Permits the user to determine the format of the data 
that will berdiepila, eae 

Permits Input/Output modifications or assioqnmmemmee 
for physical Input and/or Output, and/or Primnwiiaes 
Devices or Files within a FORTRAN Program or 

Subme uence: 

Evaluates (computes the result) the postfix expression. 
Merges two existing headers. It opens the two 

files to be merged and calls COMCOLD 6% COME@ Bias 
the merging of the two files in the column—-columm 
(one aside the other) sense or row-row (one over 

the other) sense. 

Modifies an existing header. It opens the fivegeg 
which information is stored, callsS gREADER tog 

it from the secondary to the main memory and calls 
the appropriate subroutine for the modification 
(COLMOD for column or RO@WMOD EGR eo ae eee actually 
executes the modification. At the ena@, it resuer ee 


the modified information by callimiGy 2s 
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MULSOR: AsSigns the sguices (column numbers or column mnemonic 
names) that will be used for the multiple sortins. 
It calls the subroutine ANADIS which analyzes the 
Searing Of Column mumoers and characters ("," and/or 
";") assigned by the user via the terminal and 1so- 
lates the column numbers when the asSignment is 
aone by column numbers. If the assignment is done 
by mnemonic names, it calls the subroutine ASBYMN 
which stores the names in the appropriate array. 

In both cases it calls the appropriate subroutine 
Pee ORI Soren Bak?) tem further processing. 

aA: Converts the infix expression to the corresponding 
bOstf&ix Motation. 

RANDOM: Randomizes the data matrix. 

RANK: Me wean sme le scollnmcmOmsehe Gata matrix according 
to the column numbers assigned by the user. 

RANK1 : Rearranges the columns of the data matrix according 
to the column numbers assigned by the user. 

RANK2: Meiacaiiesnedeweceumis=ob see ddea mdcrix according 
to the column mnemonic names. It calls TRANS to 
transform the column name to the column number. 

reba S P ; Displays on the screen information about the rows 
of the header. 

Beebe R: Records information regarding the header on a 
sequential file. 

REAR: Meketcor mee therdaca tmatrix. Lt ©pens the direct- 


access file of data, and consequently calls the 
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PEAR: 


REAR2 : 


REGECT= 


REORD: 


ROWINF: 


ROWMOD: 


ROWNAM : 


ROWS UP: 


subroutine EXTREE for the sorting. It reas yancgoauaees 
data according to the final iInVerecew = aaa. 
addresses without using extra file for temporary 
storage of the data. 

Used to continue the process of multi-sorting 

column numbers by calling the subroutine REAR 

It functions like REAR] for column assiteg@agmeaee 

It calls TRANS to transform column names to Coliamm@ 
numbers. 

Rejects rows not involved in particular computa Gaiam 
("logical suppression"); these rows are not physically 
suppressed but are just ignored when the calculau@aem 
1s executed. The row to be rejected is given the 
binary value of zero while the retained row is given 
the binary value of one. In this way, Dit wOmeeeee 
converted to decimal. The purpose of the method is 


to save space and time. 


. Reorders internally (without use of a temporary f11é) 


the rows of the data file after multi-sorting (via 
the produced invert relative addresses). 

This corresponds to the previous subroutine for 
rows. 

Modifies information about the rows of the header. 
Assigns row mnemonics. 

Presents the prompts for the rowSsugpreeaie 


assignment, permits the assignment of tne SuppreSeaem 


oe | 


Bevenumoechs wWitemeare StLOred In an array, and calls 
the subroutine SUP that executes the suppression. 

SUP: Peo eoo-- wen emm once On data fille assiegnec by tne 
Previous  Subrouelic. 

meee le cuUppLesses thewrows of the data Matrix that corres- 
pond to an assigned set of rows with a common 
mnemonic name. 

SEEDAT: Retrieves user defined data or searches for missing 
values from the data matrix. 

TESTER: Tests if a mnemonic name has been assigned as a 
column mnemonic name. 

mEANS: Transforms a column mnemonic name to a column 
number. 

morRM: Presents the table of the available functions that 
eomveoec USscaunor ECraolcnermaretons and Calls the sub- 
Boerne weuly that caleulates the assigned expression. 

WRITER: Writes the information regarding the header on a 


sequential file. 


Zi 


It. METHODS USED POR THE [Pie eer 


Ay PP OoORTING 
1. @itiiero ductal 

A large amount of data may need to be sorted me 
order to avoid intermediate manipulations in mass Memon yaa 
study of the most efficient method, in terms of timmy 
been carried out. 

If the data matrix is stored on a direct-accesouaaee 
on a disk and not in central memory (which is the general 
case), a sort by address calculation avoids intermediate 
exchanges between central and secondary memory. This results 
in time burdening of the method {Ret 2 oie 

When data are preordered, methods using binary trees 
must be avoided because they tend to "bubble" [Refs. 6 and 7]. 

When multi-sorting is needed, methods requiring 
departure boundaries as the integer result of a division by 
two (dihotomic methods), are inappropriate-—-gi Ving) aoe. 
wesultis. | Reres ou. 

Guinier (1980 [Ref. 5] has shown that the manipulation 
of numbers corresponding to records stored in a random access 
RKO5 disk file under the RT11 operating system consideraaa 
increases the elapsed time by a factor of 40 if Maclanieie 
method is used and more than 80 if Singleton's method is 


used. It is necessary to transfer the records of the file 


Zo 


in an image array of the column to sort and to have the 
Satereomehemencs 1n the form OL addresses in Order to ayoic 
Weenoiercterons Of the full records during the sort. 
2. Binary Tree Sorts (Monkey Puzzle, Hoare's Quicksort) 
Peewee thee SOGes, Clements to De Sorted and 
Semeagimed, im a Corresponding array, are scanned and placed 
at the appropriate node of the created binary tree. fThe 
melative position of the node on which an element will be 
placed in the tree is dependent on a comparison of the size 
of each element with the elements already existing on the 
ae loemiete Of rigau Dranemi1s selected, respectively, if 
miemeclemence 15 larger or smaller. 
ewe ome thc dateeane Gameomni zed ; 
Z_iemmumoer Of Medes n at "“avqrven level l-is n= 2**1. 
Mimic cen Ot eMewresuliing biliary tree 15 d = log 2{(n+1l) - 
Licino er "Oe COMearlsons toe place the node at level 1 
is 1+1 and the total number of comparisons is c with 
een — wo a— Cl vademel = aus | Seieitomd-1 fie 1) *2**1>. 
Eeredte se Shown unat C 1S appreximacely equal to 
meog. 2:00). 
If the original data are preordered: 
The resulting tree appears like a single branch tree 
Semele — bora lerumocr Of COMparlisons is GC = 2+3+4+4%... +n. 
Mites ces n (ne lj 2 — | whieh 1S approximately n*n/2. 
iwc eoCude toe Dubble’, with the number of “compari- 


eae — eee. 2 eens ~ 2 = 2 *n + |==approximately equal to 
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n*n. An extra array 1s needed but the elements are noe 
manipulated. Hibbard (1963) ([Ref. 9] Sugcests=anewne 
of Shell's method (Shell (1959})) as an alternative method 
not sensitive to the preordering. In the case of deaiamg 
with preordered data, a good strategy 1S to rvancomar 
them with a single pass before sorting and without 
manipulation of the file records, using instead randomi- 
zation of the addresses by which the data will be read. 
This is done by the randomization function of the 2Rbeeae 
3. Shell's Method 
This method uses the principle of interchange by 
adjacent pairs. In contrast with the bubble sort, Te %me@ 7 ee 
list entries at most one position at a time, dividing the 
Original list of n entries into two parts. This meumecamees 
compare entries that are two positions apart. 
This method is insensitive to preordering. But an 
ambiguity remains in the calculation of m = integer [m/2] 
and cannot be usecemiher emule sone inice 
4. Singleton'’s Method 
Singleton's method is an extension of Hoare ’s "“OudeRe 
sort". Because a tree method gives bad results when the 
items are presorted or take a constant value, the problem 
has been changed to an exchange of elements when they are 
equal to or greater than a temporary value T in one set Om 
values and less than T in the other set. This operation saa 


a better split of the original set Greene 


ou 


Voie wmedlan Semmece generally missing. Therefore, 
comparison with the temporary value and the median of the 
values of X({i) is avoided. X({itj]/2) and X(j) are used for 
T. This gives a better estimation of the median element 
moa a Single value. 

In searching for two elements to exchange, the data- 
aimost-sorted X(1i) and X(j) are used as boundary values. 
X(i) <= T <= X(j) and the indexes are compared after perform- 
Mmigecthe exchange. 

The lower and the upper sets must have approximately 
the same size to result in efficient performance. 

Speed of the method is greatest for less than ll 
items when completing the sort by short sequences using 
s@ell”’s method of sorting by interchange of adjacent pairs 
(Refs. 8 and 9}. 

Fer N elements, the dimension of the lower and upper 
fees lit) and IU()) must be k with N = 2**(k-1) - l. 


Di Evaluatwten of Selected Sorte Methods in Terms of 
Performance ae 


Comparisons between the "monkey puzzle" binary tree, 
Smell *s and Singleton’s sorting methods can be obtained from 
the following data which represent a mean of ten tests, in 


Beeeer tO reduce the effect of the activity of the VAX11. 


eZ 


For randomized data: including address Ca lea la aie ee 


VAXL1-VMS. 

n Shell Tree Singlesenm 
e008 0.4 .-s Que 2s O.2 3 
2 Oo es 06s 0.45 
3.000 os Peers 0.6 a3 
>, 000 Somes 2SORS O-. 9 

LOS O00 7 yeas 4.2 6s 1. oe 
For preordered data: including address calculation, aa 
VAXI1I-VMS. 

i Shell Tree Singleton 
1 8G Ges 1D ls 0.1 38 
2.010 0 C5 -s 44.8 5s 0.2 3 
35 0100 lees 117.38 s 4 Ao aia 0.386 
Do 0 Gd dig Onc 310 Sie (eS elesiae Ovo 

On tie® 4.8 s 1,072.7 s. (27 ao ema 1.04 


When data are randomized between Tree's and Shell's 
methods, Berztiss (1975) {Ref. 10] gives a ratio of Tyee 
favor of Tree's on an Algol version running on a CDC Wiaggeee 
The ratio of the presented results is greater than this value 
1f the data are randomized. Between Tree's and Singleton's 
methods, the ratio is 2 and the velocity 15 5 times beeue, 
on theVAK11/780 than the results given by Singleton on the 
Burroughs aaa 0Un, 

When data are preordered, degeneration of Tree's 
method on a bubble appears clearly. The results of Shell’s 


and Singleton's methods are stable and twice as good. 
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Singleton's method is 20 times faster on the VAX11/780 
under VMS than on a PDP11/05 under RT11. Guinier (1980) 
gives 4 s. for 1000 items [Ref. 10]. 

The method selected by IDAMAN are Shell's metnod for 
eerginal Single Serting and the binary tree sort for multi- 


Bereing [Ref. ll]. 


Pee iUbDTIiPLE SORTING 
ime Toe rOocuce lon 

A system, via multiple sorting, executes a repeated 
@eueing Of the data matrix according to successive column 
numbers, or column names assigned by the user via the terminal. 

LitsehuNeria@ Pemmlts nested sorting of the data matrix. 
The concept of nested sorting is clearly illustrated by the 
following example. Suppose we have the data matrix as in 
Fig. 5(a) and we repeatedly sort it according to the columns 
fee, 2 and 1. The resultant matrix is shown in Fig. 5(e). 
In this matrix the first four rows of column 1 have the same 
value. The result of the repeated sorting is that the corres- 
mMemaing first four rows of column 2 (which is nested to column 
1 according to the assigned sorting sequence 4, 3, 2, 1) are 
sorted. Likewise, in colume 3 the rows 2, 3 and 4 have the 
Same value and the result of the repeated sorting is that in 
column 4 the avlues in rows 2, 3 and 4 are sorted. 

Mieco plimEmMer ~Cllarirvedlin Fig, 6 where direct 
Bemeing of the data matrix 1s presented based on column l 


(the last column of the sequence of the repeated sorting). 
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Nested Sorting of the Data Matrix 


33 


ResULT 


[i O m t) 


3 


2 





—N (ep Ca ial Oo om 2) 
ef ——} ~~ 4-—— j-—- as) 
> Cc)» cy cd 4 cH a4 


(a} 


Sil javeiie Syejiaic allele 


oe 


Fig. 


3118 


The result is a matrix sorted in column [S003 {fee e ee 
sorting of the previous case does not exist. 

This type of sorting is useful in cases where some 
variables of the active data matrix are n@e CUuamemen are 
(continuous) but descriptive (discrete) and are attached to 
classes or subclasses of data. Successive sorting invoueeeee 
such variables organizes the matrix in a corresponding order 
if the collection of data is not presorted by function Gage 


classes or subclasses (Fig. 7). 


a 1 See 0 0 Se 
0 0 Bie al. 0 0 1230 
0 0 eZee 0 1 13.4 
1 1 Saal 0 Z ies 
0 2 aS 0 2 2 ie 
i 0 Oy ik 0 Oia 
0 1 13 il AL oe 
0 2 2316 1 i a2 
al 2 oe i: 2 13e2 
"Descriptive" “Quantitative” "Descriptive" "“"QOuantitaeees 
data data data data 
Before sorting After sorting 
Fig. 7. Set of Data Containing Two C¥asseceoee 


Three Subclasses 


3st 


fee ee eietnciple 
Operation of the repeated sorting of the data matrix 
is executed in two phases. The first phase sorts the data 


matrix consecutively according to the assigned sequence of 


column numbers or names, while the second rearranges the rows 


Sretene initial matrix according to the result of the repeated 


memcings. 


a. Phase One 


The virtual process by which the repeated sorting 


mamees Dlace is the following (Fig. 8): 


(218) 


Pece wet eCemiact es comUmmuaceconcing tovwhich Emme data 
must be sorted. Store the data of this column in an 
array. 

Sort the array and get the invert relative addresses 
in an array (NO). 

Read the inverted relative addresses. (This means 
that the rows are rearranged before the next sorting.) 
Repeat Unc lwall the sorting guides have been used. 

In order to avoid rearranging and thus to save eee 
time and space utilized, the following method is used 
icc) ae 


A one dimension array (NOR) is used to store the 


mimetivyve addresses in which the data file will be read and 


remains unchanged during the whole process. 


ely) 


(2) 


Initialize the NOR. 


hein lio ee COlLIMmM IMNawiten Storing will take place. 


38 


butaa2os bULIeodey JO SseD0lg 





Tenqata 


SOr 21 Ag 


4th 


3 SCC ong 


"8 


“On 





Result 


BS) 


NO 43 


4 


x 


NOR 1 


A 

ba a 
mY 
Cre 
= 


aan (yaa Ge 


m0 YU 


4) 7) 


rc 
O 


<r 


=~ » 


be gJ 
t) ba 


ow 





ee 
-_ 
——_$ —— § 


4 
< 


Se 


NO 


NOR 2 





Real Process of Repeating Sorting 


ea 


ee Gp 


40 


a. invert Noa 
according NGi=es 

b. Reacd Y 2 accae 
rad 2 nGeNenhae 

C, SOrt. aac 


a. Invert Gnas 
according NOM 

»b. Read Y | aceoq 
rding NOR gas 

6. Sort) vas 





Fig. 9. (CONTINUED) 
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Meeeecese ehe column ana get the inverted relative addresses 
iO). 
meeeeluvert the NOR aceording the NO. 
(5) Repeat until all sorting guides have been used. 
b. Phase Two 
The second phase is the rearranging of the data 
matrix according to the last inverted relative addresses, 
Meng the same external file. A pictorial presentation of 
the algorithm used is shown in Fig. 10. 
Mie sseaseolenaneor thisealagorithm 1s the following: 
Miertg. LO the array containing the inverted relative addresses 
is noted as NOR. The first pointer of NOR] is pointing to 
row number 6. This means that row 6 must move to the first 
relative address of the matrix. The contents of this address 
however must be saved. For this reason a mutual exchange 
Between the first and sixth row of the matrix is executed. In 
this way the first row already contains the appropriate values. 
A consequence of this exchange is that the first row which 
would move to the fourth row of the matrix, is now moved to 
Mme Sixth position. The fourth relative address therefore of 
Peeemust: Change from 1 £Oo 6. The algorithm searches the NOR 
m@eom | £O 8S until it locates the relative address 1, which 
exchanges with the relative address 6. 
Sum lacl\vaome Che secona, step, column 3 of the 
matrix must move to the second relative address. Therefore 
a mutual exchange between rows 2 and 3 takes place. in the 


NOR now, a search takes place until the relative address 2 
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wo loccroamer lis OcCeurs Pm tne Gi1ghth position and therefore 
the number 3 is placed at the eighth position. The same 
megeess 1s Fepeated Until all the rows of the data matrix 

are rearranged according to the inverted relative addresses 
(NOR). 

The choice of sorting method must be made so that 
the expected result of the repeated sorting is achieved. In 
mis case Cach set of data to be sorted (the data of a column) 
#5 not independent but rather is bound with the data of the 
other columns of the matrix. Whenever a duplication of values 
appears in the column to be sorted, these values must not be 
treated equally since their bound with the values of the neigh- 
boring columns differentiates them. In order to keep the order 
of the neighboring columns unaltered, the equivaled entries 
Se tne matrix must maintain their order after sorting. The 
following example clarifies this concept. Suppose that we 


have the matrix (a) and we repeatedly sort it according to 


0 i 3 il 1 il il 0 Z 0 1 1 

0 2 Z 0 Z Z 0 i iu 0 1 2g 

0 al 2 0 il 2 0 il a 0 2 2 

i a il a 0 Z il i 3 1 0 2 

it 0 2 0 if 3 0 2 2 i i 3 
(a) (b) ce) (d) 


Bewunns 3, 2, 1, considering the sequence of the duplicate 


merues in C€ach column, The resultant matrix in Fig. ll has 
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the desired property. Repeating the same SOreinomo meme 
considering the sequence of the duplicate values) seme, == eee 


is different, as illustrated below: 


0 il 3 ii IL il al 0 wz 0 1 3 

0 2 Z a 0 2 0 1 2 0 2 Z 

0 1 2 0 2 Z i 1 i 0 i: 2 

ut 1 1 0 il 2 0 ii 3 i i 1 

dl 0 2 0 1 3 0 2 2 a 0 2 
(a) as) ie) (d) 


The above consideration imposes limitations in 
the selection of the sorting method to be used» Consiig@eaaaam 
only the speed and the memory space consumed in the method 
selecting process is not sufficient. The method selected 
must also maintain the existing order of the equivaled ele- 


ments. Such a method is the tree sort. 


C. TRANSFORMATIONS 
i. (ineroduce ten 

A more valid analysis of row statistical data usually 
requires a series of transformations in order to cChangemew. 
scale of the measurements. 

Initially, a test of normality of the data is execumeg 
to confirm if a parametric method of statistical analyswsmgem 
be used. If the data to be analyzed are non-normal) (iene 
Can De fOp re igeceD. Pome ee appropiate transformations sem 


them [Ref. 12]. 
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A transformation also can be used to equalize the 
variances of the sample. 
a. Fundamental Transformations 
The most common transformations used for the 
purposes mentioned above are the following. 


(1) Logarithmic Transformation (Neperian and 


Common) . 


ms 
II 


Logie wetouw™ xX > ©) or 


ae 
I 


io came Gc) tern X-C)l > 0 


If considerable heterogeneity in numbers is 
present, the variance is often found to be correlated with 
the mean level on a square root scale, and may only be stabi- 
lized if transformation is made to the logarithmic scale 


beet. 13). 


C25) The Inverse Sine or Arcsine Transformation. 


Menor icent oo eerecetn(soRTio) if O. <= x <= 1. 


This transformation permits an equalization 
@eevVariances when the data are proportions or ratios. 


(Seow sdUatreC ROO Transformation. 


f= SORES a 
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This transformation is used when the vari- 
ances of the samples are approximately proportlona ew. omen 
mean, or when the data follow the Poisson =a@iseri ogee 


(4) The Inverse Transformavcteoume 


X' = 1/X if xX is different than zero 


This transformation is used to equalize 
variances whenever they are approximately proportional t6 
2 5 — 
Seo we Sade vel ane og iG cee Se Ue ee 


(5) The Inverse Hyperbolic Sine or Arcsine 


Hyperbolic Transformation. 


HO Sinh + (sorT(x) ) = “Arcs ine toen!.) ) 
where 
Arcsiné (Z) = Log (|Z) Zao 
(6) Exponentiation at Tth Transformation. 
ee 


This transformation is suggested by Snedegas 
and Cohran (1967) for variance analysis when there is no 
additivity of variances [{Ref. 14]. 

b. Complex Transtormaereme 
Although the above transformations are the moge 


commonly used, the system provides an ability for any Kind of 


47 


wawiemermatlon asSiqned Sy the user in the form of an ex- 
Pee-octen Via the kevyooard. ~Im this way, not only is a trans- 
Beriaeiton Of the column obtained, but calculations at run time 
BRav@lomeng IMerinsic FUMeCE1TONS, arithmetic operators, con- 
Stants (integers or reals) and data contained in the data 


Meaerix, Can be performed according to user assigned mathemati- 


cal expression. Examples of such expressions are: 
SOR? 7 san PeeeOe TNO 7-2) ~ 2 
[9] + 3.14 
SIN[5] - (-cos[3])*3 


The number of the column must be enclosed in 
brackets in order to be identified, while the symbol """ is 
used for the operation of exponentiation to avoid use of two 
MmoIeactersS aS an Operator. 

The value of each assigned transformation is 
considered as a new column or parameter and is placed at the 
megiaemost Of the columns--increasing by one the number of 
@olumns of the data matrix. 

mee PELnciple 
a. Breakdown of the Expression in Parts 

The inserted expression is read as a unigue 
mmeacacter String and is broken down into the following kinds 
Seeemnaracters Or Character strings: 

Functions and corresponding column number (eé€.g., 
TAN [2] ) 


Column number (e.g., [5}) 
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Real Number Ome peeger. 
All the above with negative signs 


Operators (- oe eee 


For example, the expression (COS[3]+2.7)/ (=) 


1s broken down as follows: 


In this format the elements constitute an infix 
notation format. After the breakdown, the elements are 
stored in a two dimensional one character array INF. )@ieee 
one dimension one character arrays FUN, NUM and CONS are used 
for temporary storage of the functions with their corresponding 
column number arguments, column numbers, and Cons uaa 


Three flags--TEST, MARK and INDEX--are used €o Si9ona eae 
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existence of a negative value. This negative value is iden- 
Mmeerea wienevyer a “—" character follows an "(" character. 
Mine Variable BR is used to temporarily store a "[(" or "J" 
Seiaracter which, in combination with the flags, permits a 
column number to indicate that the datum of the value will 
be used in the expression or that the value is an argument of 
eeeeunction. 

Bee Con v-Tstlomercenmmeintix to Postrix Notation 

The method used for evaluation of the expression 
requires the transformation of the infix expression (which 
fame m@enmal form used by mathematics) into postfix notation. 

Pepe oe tw NOtatlOnels a reabrbangement Of the 
Characters of the infix expression to remove the ambiguity 
mmevonicnh Operaror 15 performed first--using parentheses to 
mmereate the priority of the operators. For example, the 
Seeression atb*c 1S ambiguous since it 1s not clear if the 
maee1on Or the multiplication has to be performed first. 
This ambiguity requires the use of parentheses to specify the 
Operation to be performed first. 

Pimweoonmbx Me teklOon eat Ehe anformation re- 
quired for the evaluation of the expression is included in 
it. Moreover, the parentheses are not required any more. 

Suppose that we have to evaluate the expression 
atb*c+(d/fe-f). For its evaluation two facts are Weed ,rO 
determine the Sequetecron the operations. First is the 


existence of the parentheses which define which expression 


a 


has to be performed first. The result has to be used as a 
new value for the remaining evaluation of Che exereseaa 
Second, the precedence of the operators. Operation yon mee 
exponentiation is to be performed first, then the muleaoeeee 
tion and division and finally the addition and Subtracomems 
Therefore, in the expression in parentheses, the division 

has to be performed before the subtraction while in theme 
outside of the parentheses, multiplication is to be performed 
before addition. 

The same expression in postfix notation is: 
abc*+de/f-+. This form does not need the conventions mentioned 
above, in order to be evaluated. Each operator simply uses 
the two operands preceding it, in a left to right secquewees 

The method used for the conversion from 1nfieaiee 
postfix is the push-down stack for the storage of the operators 
and parentheses of the expression. 

In general terms, the algorithm used is as 2Oue ies 
Each character of the expression is examined. If i Siam 
operand it is placed directly in the created postfix form. 

If it is an operand, then if the topmost characcer ela. 
stack 1S an opérator, priority comparison takes ota] ee 
the operator of the stack has equal or higher priority, it 
is popped, and placed in the postfix expression, while the 
other is pushed into the stack. If the priority Of Phewe as 
operator is lower, the other is pushed into ae stack. ga 


é 


the character of the infix expression is an "(", it iS eusnee 


el 


Mmieomenewstacx, while Tf it is a ")", the topmost operator is 
pempecmonceplacea im Ene postfix and the two parentheses are 
imegemed. Fig. ll gives a pictorial view of the algorithm 
described. 
In order for the procedure to be included in 
the transformations of the developed software package, the 
following considerations must be taken. 
The operands can be positive or negative: 
MimMeGreloOoms, Gao. , SORRI/ | (square root of the column's 
seven value) 
Column number enclosed in brackets, e.g., [3] (the value 
of column three) 
Numerical values (real or integers). 
The above considerations require the statement 
Of the expression in character form. in this way, the several 
kinds of operands can be distinguished and treated appro- 
priately. The produced postfix expression is stored in a 
two dimensional, one character array. 


Suppose that we have the infix expression: 
Cees eee ey (a 2 


Mee resultant postfix expression is illustrated in Fig. 12 


mee appears stored in the array POST. 


3) 


Posittx “expression Stack Inf ix exDressieom 


Se —— <a meee ie ee 


a+b*tc+(d/e-f ) 


a ey an +b G+ (d7eae) 

a a b*ce+(d/e-f) 
+ 

ab = a re *“e-(d/e-t) 
+> 

ab | er(dje-) 


abc Ny aa +(d/e-f) 


abc* a a oe +(d/e-f) 
abc*+ aa (d/fe-£) 
+ 
abc*+ d/e-f) 
— |] a 


Fig. ll. Infix to Postti qs @ern2 ata 


aS 





abc*+d 


abc*+d 


abc*+de 


abc*+de/ 


abc*+de/ 


abc*+de/f 


abc*+de/f- 


abc*+de/f-+ 


Fig. ll. (CONTINUED) 


——_____—___— 
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e-£) 


f ) 


2 7 

~ 

= 5 

2 

i 

8 

Fig. 12. Representation of the Postfix Expression 
c. Evaluation of the Postfix Expression 


As previously mentioned, evaluation of the expres] 
Sion after its transformation into postfix notation has been 
Ssimplitived. 
The procedure used is as follows: 
a) Scan the postfix expression and push into the stack 
the encountered operands until an operator 1S enecounee tas 
b) Pop the two topmost operands of the stack, apolar 
operator to them and push the result into the seace 
c) Repeat until the end of the postfix expression. The 
example given in Fig. 13 illuStrates the concep 
To implement the above procedure, the "-" sign 
of a negative number has to be considered, and be distinguished 


from a "-" operator. This task is served by representation 


of the postfix expression as shown in Picea. 


a5 


See K OPERATION Beer i x 
Or CPERA TOR OP2 


oye, 02 / ply Ht 


3 ee eee ff gd = > + 
Ero Pema 02 a7 gel yt 
Bao ety O27 ly 
5 z 2 
sO TOU 2 oAy pd 
S 7 10 
ae ree ee 
ile LO i 
ies LO eZ ey =a 
10 vi 2 
ese, 5 Le meee 
isis 5. -,+ 
5 - a 
13,4 + 
sb > + 
7 
Pieri ee vclWartien Of a PoStfilx Expression Using the 


Expression of the Previous Example: 
atb*c+(d/e-f) 
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For eacn liné Of Ene areas ee 
If the first character is a letter, oF nNumser eee 
the element is treated as an operand. 
If the first character is °+" > "= 
Ereated as an =@ueraceum. 
If, however, the first character is "-", then the eee 
character 1s examined. 
- If it is a letter, number or "{", the element 
treated as a negative operand. 
- If itis a" “", then it 1s the mins opener 
Each of the three kinds of operands is identified, 
stored in a one dimension array and evaluated appropriately. 
The numeric characters must be decoded before an arithmetic 


operation is applied to them. 


ee RANDOMIZATION 
rae. Sneroduerion 
The system provides a randomization ability of the 
data, needed in the following cases: 
Many observations (data) are collected as a fuUnCtIOn@ae 
time. In order to avoid any correlation intlvencingwag 
way this data is collected, we can randomly burst the 
order of the rows of the data macrix: 
When multiple sorting is desired and some of the columns 
are already sorted. This fact will have negative Yesumisee 


in the per formance of the sorting method used by the 


ay) 


Sy seem (| OSC -SOe~m ee ctOonoDtain che multiple sorting (see 
Seaton £le8). Sinwcases where the amount or data is 
Pacer hee ce pise mogao le roby GaAnGOmizacion Of tne sorted 
columns to take place before multiple sorting. 
Pee cinco le 
The randomization of the data is obtained by reading 
memes LMey are ordered and rewriting 1t according to a sequence 
mamoandom mumbers produced by the function RANDAN. 
The principle used 1s a congruential method of seg- 
Poeemng the modular arithmetic, déscribed by K.D. Senne (19784) 
and the algorithms are given by D. Guinier (1984) [Ref. 3]. 
For all m bit generators, a sequence of integers L(n) 
ma the interval {0,2**m-1} is calculated. The desired real 
amr ecm AMeadne CbLtained from ehe L(n)’s. The néxt sequence 
Memetew oa aril) Ss are Calculated by dividing the L(n)'s by 
Perio the formula: L(n+l) = (A*iL(n)+B) mod 2**m. 
[ne oaateoviecwainamwe Ae soeegum (1965) have proven many 
Mimeceasmul COmolnallons for A, B and m, €.g., A = R*2**S+/-1, 
where S is equal or greater than 2 and B = 0. 


adne multiplier R is selected so that the number of 


mriemirticant bits in R*2**S+/-1 is approximately m. L(n+1) 
is the next cycle. There is no correlation between adjacent 
memecers: Ls, (L1,L2,L3,...,Lq~-1,Lq). 


eon eee feo Roi eon any m bats A in which 
mime last three bits equal l. 
Tiewo m= sean be Segmented into Gq integer parts by 


mei] arithmetic expression for any m bit number: 


a6 


ee 
Ss 
Il 


E(L1,L2,U3,...,h¢—- bes 2. ae 
L(n) = LL*2**(m* (qa) 
+ L2*2** (meet 2) 7a) 
a 
> Liege ao 
and A can be segmented in the same way: 
A = £(A1,A2,A3 7 225 Ge ye eee a eee 
A = Al*252m* (q— iy ce 
+ A2*2* “(es (cee eG) 
af 
Ag 2 0 
Set L(ntl) = A*L(n)+B, that is, 1f B= 0: Utne —-2 aaa 
A*¥(n) = (Al mloee pS 2 8 CQ ele ee 


+ (Al  ¥*L2+A2*L1  ) *2**(2*m*(g-2) /q) 


Te 
+ (Aq-1) *Lq+Aq*Lq-1) *2**(2*m /q) 
+ Ag *Laq *2** 0 


The previous operations are performed in Part I of 


Algorithm I: 


Algor imam. 


DOS hits eeaheenGa 0) 


ae, 


ee iwieemealeiiattOn Of products A*L(n) : 
HOmeany —Li( mM) 


DO WHILE (i.LE.q-k) 


D ae > i 1) ep 
ee 2 
END DO 
eee een a lization Of Ene Lin) *s in L(n+l)'s, by performing 
Bae Operation modulo 2.%**(|(m/q] 
p = pre 
E =p /(2.**(m/q])) 
ease = p= eo (2.**(m/q) ) 
k = k-l 
END DO 
After we take the modulus relative to 2**m, for the 
mext cycle of Ln's, the expression is given by Part 2 of 

pwreOorithm I. 

When we take the modulus 2.**m of the previous 

Maeoducts A*L(n), it gives: 

Mint+1)={ (Al*Lq+A2*Lg-1+...+Aq*L1l) mod2** (m/q) }2**((2*m/q) *[(q/2]) 
cee eine — ier 2. +AG~h2)*2**(((2*m/q) *{ [q/2=2) ) 
ae Gplke 2 * Oe and, 

—tiemsecona Malt Gf the last term i1s:eb(n+liq, 

eto eceeolemmden Or ~Emeulaste term + the second half of 
iit ewehic last term 21s; Lint+l)q=1, . 

- the remainder of the next to the last + the second 
Cae wore elon tormeyUst before (the next to the last 


Eomintse lintljq-2, ete. 
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Ak and Lk are defined for k = 1 £6 @ ptecec ae 
beginning Of Ene sequemec, 

The maximum precision requires 27*mM/qb4 tse) an 
update plus carry over bits to add gq numbers of Jeng Ui 
and a number of lenath m/q, i.e., 

p= [log2{q** ((2*m/q) -1**2) +2* * (m/q) —1) 1 oe 

The number q of possible pieces for a 36 bit »SeuGee 
random number (m = 36) is: 2, 3, 6, 9, 12, 18 OF S60 
take q = 6 for a 15 bit positive integer INTEGER*2, up to 
2**15-1, 1.¢€., 32767. The cycle length of the generamem 
has been tested greater than 10477 

The sequence of the x's is obtained from the following 


aPle@i een. 


Pigorlenn Ll 
1=0 
x=0 
DO WHILE (i.LT.q) 
1=1i+l 
Maxthon) ie2.* (Sli eae) 
END DO 
and the next L(n)'s will be the actual L(n+l)"s for )eneeieee 
sequence. The initial sequence is forced into a flag if 


1t PSM ELerent than=@zero Beeps 
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Ute tettenicomhOR Ust OF THE ITDAMAN 


A. Pr ReDUCTIGN 
The system IDAMAN is an interactive and conversational 
system intended to be used by any user regardless of his/her 
level of programming, and without any specific Knowledge or 
training requirements. For this reason an effort was made 
Bor the system to be self-directed via meaningful screen 
displayed prompts. 
The IDAMAN operates through five environments of operation. 
Mme transition from one environment to another is obtained 
Pelion carriage returm (<CR>). In each environment appro- 
priate prompts and menu-like tables are displayed directing 
the use of the system. The five environments are the following: 
Hebe S Of “Or ERATION 
COLUMN INFORMATION 
ROW INFORMATION 
COLUMN MODIFICATION 


ROW MODIFICATION 


B. MANAGING DATA FILES 

The data is stored in direct-access unformatted files in 
mass storage. These files have names of the form: FORxxx. DAT; 
Pamere XXX iS a key number for the particular file. During 
the manipulation of the data, the system requests the key 


meamoecr Of an existing file on which the data to be manipulated 
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is stored or a new one on which the manipuletec Gata tiie 


stored. This request is done by Ene eemenes 


Assign the 'OLD' direct access file; 
Key(xXxx) For File FORxxx.DAT number y, (nnn—OG ae 


and the user has to assign a numeric or alphanumeric three 
digit key. The number y indicates the logical Unit mumjees 
used for this file (in the example given by the prompeymeem— 


key number is 069). 


Oe USER ERROR PREVENTION 

The program has been designed in such a@ way thacueee 
most common user errors can be prevented by an error message 
reaction of the program instead of a run time compiler eae 
After the appearance of the message, the program shipuemee 
the appropriate position for reassignment of the erroneous 


G1 Veneinfronma tiene 


eg SELECTING MODS OF Oe eee iat 

Access of the first environment is obtained by the execu 
tion of the program and permits the selection of One Glia 
available modes. The selection of the desired mode is ob- 
tained by assigning the corresponding number of the mode as 


1t, appears an the following eeaae. 


oo 


AVAILABLE MODES 


Creation of new header 

Display of existing header 
Modification of existing header 
Merging of two existing headers 
Answer 


m WN FF’ 


eis PUNCTION OF MODES AND HOW TO DEAL WITH THEM 
1. Creating a New Header 
Miewereae ommeorscmeweneader 1s done by selecting 
moae 1. Upon entering this mode the following prompt appears 


on the screen: 


Name of header's file 


em reQuests the assignment of any 24 character string which 
will be used as the file name of the sequential file in 
PoeeecilncrOrmation of the created header will be stored. 


Peecr file name assignment, the prompt: 


Suwon aeotmMatlon: 1 


Row information 2 
Answer : 
requests the environment to be used next. By selecting l, 


the program enters the environment in which information 
regarding the columns of the header will be assigned, while 
2 permits assignment of information related to the rows of 


the header. 
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2. AsSigning Information Tor the Comaaa= 
Upon entering the environment for column information, 


the following menu-like table appears on the screen: 


SELECTION TABLE FOR COLUMN INFOR 2a e. 


Number of columns (mandatory) :1 
Mnemonic names 2 
Transformations ri 
Tracing extrema 74 
Multi-sorting column wide. sg 
Randomization of data a6 
Column canine a 
Display column Interna d ane 
MOdifacation Gf ‘<olumm eine J) 
Data retrieval ao 
Display/print of data file sell 


The selection of each entry of the table permits the aseiage 
ment of the corresponding information. At the end of each 
assignment, the program returns for new column informauaenme 
The exit of this environment is obtained by <CR>. The 
process for each assignment is as follows. 
a. Number of Columns 

Selecting this entry 1s mandatory for the Operas 

tion of the program. The following prompt appears on the 


Se eect: 


Assign number of columns 


The only action of the user is the assignment of the numbexr 


of columns. Of Ehe Gata ino aes The maximum number of Comme 
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Pee een oy seo Drescne Cesign of Ehe program is 128--which 
Sam easily be changed by a simple modification. 
b. Mnemonic Names 
iiemoekeet lon Of Ells emtry Of the table permits 
imme assignment of mnemonic names to columns of the data 


matrix. The prompt appearing on the screen this time is: 


Assign column number (<CR> to RETURN) 


requesting the number of the column for the next mnemonic 
Mame to be assigned. After the assignment of the column 


mumoeer, the prompt appearing is: 


Assign mnemonic name 


requesting the name for the assigned column number. The 
assignment of column names is not necessarily done in ascend- 
ing order of column numbers; neither is it necessary to assign 
Memes tO all columns. The program sorts the assigned column 
numbers in order, to appear in the display of the header's 
data in the proper order. <CR> terminates the assignment of 
names. 
€. Transformations 
~IDAMAN uses this function to permit any number 


and kind of mathematical expression involving values of the 


66 


data matrix to be assigned. In this way a transtGrma=uommer 
the value according to the assigned expression is obtained 
The value of each expression (calculated for each row) is 
considered as a new column of the header and of the Gace 
matrix. The result of the transformation is attached to the 
rightmost end of the columns as a new column. The toeam 
number of the original columns plus the number of Couns 
created by transformations should not exceed the maximum 
permitted number of 128. 

The function of the transformations is Dbettes 
explained by the following example. Suppose that the) ig 


data matrix to be trans tormeca .- 


ce See g's Onis 
S50 lee 4.0 Iie 
Teel 6.7 ora ZS 5 
Zee es, 0 Seto 
Oe iio 0.0 0 
4.4 Dee U 4.0 Saas 


with NCOL=4 NROW=6 and the assigned transformation 1s 
SORT(3]/2. This means that the column to be transformed is 
the third, and the transformation will be the square eee 
of its value, and then dividing the result by 2. )Tiewmes 


data matrix will have NCOL=5 andevwi ee 
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370 lee 2 4.0 2 0 
lr: Gad Gi. 0 2355 2 a0 
2S 220 Je oe On 
Gr aly7O Ue 1 OFF 0 
4.4 0 al 0 Ce eo 


The form of the assigned transformation can be 
any algebraic expression involving values of the data matrix, 
any real or integer constant value, and values resulting 
from the application of the following functions, assigned by 
mes Number column: 

LOGC Common logarithm. 
LOG The natural logarithm. 
EXP Exponential. 

eS Absolute value. 

SIN Sine. 

SOS Cosine. 

TAN Tamgene . 

ASIN Arc sine. 

ACOS Arc cosine. 
wees eahgenee 

SINH Hyperbolic sine. 
COSH Hyperbolic cosine. 
TANH Hyperbolic tangent. 
SORT SSquare roo. 


ASINH Arc sine hyperbolic. 
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The column number for which the value will be "susseuemeee 
for in calculating the expression, must be enclosed in 
brackets ([{]} in order to be recognized by the srocqran see 
notion of exponentiation is shown by the cnaracter, "eee 
functions assigned in an expression must be in upper case 
letters in order to be recognized by the program. The eae 
ing are some examples of expressions that can be assigned as 
transformations Of see mumnee 

{3]+3.14 

SORT TT | 

(SIN {5]43.14)7-2 

LOG (10)=([f2i“C=serer > s 

(VGOS ES se beaks oe 
At the end of the expression(s) aSsignment, the file mame 
in which the data to be transformed are stored, must be 
assigned. 

ad... Tracing extrema 
By this function, IDAMAN permits the assi¢mmeuge 

of a range of values in which all existing values ae. 
data matrix will be used for tracing. This aréa is) Gerais 
by its lower and upper boundaries (extrema). Upon selecting 
the corresponding entry of the selection table, the oroqmam 
requests the name of the file on which the data are stored, 
in order to determine the existing maximum and minimum yvauues 
of each column. These values are used for tracing in the 


case that not-user defined extrema are desired. The extrema 


62 


are displayed during assignment to facilitate the work. The 
Me cemasstonmenc 15 tae type Of extrema that will be used. 


Hiiaat 1S the purpose of the prompt: 


Imposed extrema for tracing :l 
Original extrema aU 


Selecting 0, the program automatically will use the minimum 
and maximum values of each column as tracing extrema. 
Selecting 1, the user is requested to assign the column 


number for the tracing extrema, by the following prompt: 


Assign column number (<CR> to RETURN) 


The prompt for exrema assignment continues: 


Var Omere Imposed: 
SAX Bound) « Imposed: 


The program displays the existing minimum and maximum values 
@6f Geach column. The user thus assigns his/her different 
imposed extrema. 
oe. Mulbtajserting Column Guades 
Vitel sercimeg scolummiequides allow the system to 


Mesign a series of columns according to which multiple sorting 
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will take place. For details On mulvcilple ween eee 
Section II.B. The assignment of the GOP iin cue ee 
used as guides for the sorting can be done by the column 
numbers or by their mnemonic names. The following prompe 


requests the user to assign the desired mode of aSsilGmmoman 


By column numbers :1 
By mnemonic names :2 
Answer ; 


By selecting 1, the following promote will asgoe-a.. 


Assign ne@(s). Of sco lume 


The assignment of sorting guides can be a series of column 
numbers separated by a "comma" or two numbers separated Dy 

a "colon" meaning that all the numbers contained therein 
will be used as multiple sorting guides. if, for example, 
epee ns assigned, the data will be sorted according to 
column 18, then according to column 13, and finally aceomenmae 
to column 5. If 5:8 is assigned, the data will be ycGu ae 
according to column 5, then according to) Gcolumacye ono 
column 7, and finally column 8. If the assigned series of 
columns exceeds one screen line, the assignment can continue 
to the next screen line by us@ng a "comma" as a continuation 
mark. In the case that assignment of sorting anne using 


mnemonic names is desired, the prompt: 


val 


Assign column mnemonic names 


will provide it. In this case the names must be assigned one 
Meeeach screen line. After printing the name of the column, 
me@ercarriage return (<CR>) will enter the name in the computer 
wapele the cursor will move to the next screen line for the 
next name assignment. 
f. Randomization of Data 
By this operation, the system permits randomization 
of the data for improvement of the sort method performance 
ee £Or elimination of the time effect. Demon a vagcs Sil Giiiien « 
for this operation is the name of the file on which the data 
are stored. This assignment is done as soon as the prompt 
requesting the name of the file appears on the screen (see 
meetion I11l.B). 
Geecol umn, Ramigind 
A new arrangement of the columns assigned by the 
Meer is permitted. This assignment can be done by column 
numbers or column names. Upon selection of the operation, 


lege prompt: 


By column numbers :l 
By mnemonic names :2 
Answer : 


Bequests the desired assignment mode. If the mode is the 


meest One, the prompt: 


Te 


AsSign no(s) of columns: 


requests the assignment of a series of column numbers which 
will be used for the new ranking. This assignment is done as 
described in Section III.B. The assignment of columns with 
mnemonic names is also done as in Section III.E.2.e, after the 


PrOmpe: 


Assign ranking by sequence of names 


appears on the screen. 
The operation of ranking creates a new data file. 
The number of columns used for the ranking assignment is 
the number of columns of the new data matrix. 
h. Display of Column Intormativen 
Display of column information shows assigned 
information related to the columns of the header. 
i. Modification of Gelunmn [nterpmaetes 
By this operation, the program passes to the 
environment for modification of information related to the 
columns. This is a modification of information assigneqmag 
the current run of the program. As mentioned abe 76 yaw. 
modification of a header created by another run and existing 
in a file, is done by another mode of the program. Upon 


selecting the modificati@n epemaeret eee table: 
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MObiaie ELON eSEbeCLTION TABLE 
Ninvermenrecolumns <1 
Mnemonic names ae 
Tracing extrema =e 
Sorting guides 24 

ae 


Raniwwenr columns 
Answer 


Peale s Selection of the desired modification. The several 
modifications are executed with the same kind of conversa- 
Mmiomal mode. The old=anformation, which are candidates for 
modification, appear on the screen to facilitate the work. 

In case that modification is attempted for information that 
has not been assigned, the program reacts with a message 
Merorming the user to assign the information. The following 
Peompts appear for the corresponding modification selections. 


(1) Mumden soe eco lumn Ss. 


Old number of columns 
Assign new number 


(2) Mnemonic Names. 


Assign column number 


Upon the assignment of column number for the 


mnemonic name which will be modified, the prompt: 


74 


Gla” itearme 
Assign new name 


facilitates the moda ticat ten 


(3) Tracing Extrema. The@eeenmoe. 


Assign column number 


requests the number of the column for which tChe@eracimas 


extrema will be modified and in following the worenoes. 


Olay aa, 
Assigns new MIN 
Old MAX 
Assign new MAX 


permits the modification of the displayed ol@ ex22ea-e 

(4) Sorting Guides. Selecting modification of 
the multi-sorting column guides, the old ones (column numbers 
or mnemonic names) are displayed initially, and then the 


DEOMpes: 


Assign no(s) of columns 


Oe 


Assign mnemonic names 


a 


requests new column assignment by numbers or mnemonic 
names. 

Peer atceotmeolumis. Modification of the ranking 
Peeoonment 1s Similar to modification of multi-sorting guides. 
The difference is that the number of columns must be modified 
m@erore Che modification of the ranking assignment in order 
memoe consistent with the initial data matrix. 

j. Data Retrieval 

By this operation, the program searches the data 
File for a specific value assigned by the user or for a 
missing value represented by a "gold" value, and informs the 
user about them as explained below. The process for the 


Peocegnment Of ENisS Operation of the program is as follows: 


Name of the existing data file 


requests the key number of the data file which is going to 


be searched. The next Oo aompime 


Assign device (or file) 


permits the user to assign where he/she desires to receive 
Pmermormation (terminal or file). The amount of file to be 
searched is also assigned by the user with determination of 
columns and rows of the data matrix. This is done after the 


appearance of prompts: 
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Assign nots). of columeae 


and 


Assign no(s). of rows 


The assignment can be done by the symbol "*" meaning “all” 
by any alphabetic character, by sequence of column or row 
numbers separated by a comma (",") (e.g., 2,5,365) whee 
determines specific columns and rows, or by two numbers 
separated by a colon (":") which determines all columns Jon 


rows included between the two numbers. The prompt that fous 


Data to be retrieved (real or "gold") 


permits the assignment of the real value to be searched. 
The letter "g" or "G" determines that the program must 
search for missing values which are represented by the 
number 12345.678 or any number that can be assigned by the 


user with the next prompt: 


Change oF REluUry 


The data provided by the program after conpl= lente waa. 
search is the Index (sequence number of the element in the 


matrix), the column number, the row number and the value. 


del 


oe oesolay/ Prine sor Data File 
For the data file to be displayed, information 
aeeeeiemtesaiame, clew@evlce Of which 1e will be printed 
or displayed, the numbers of columns and rows that will be 
Memeesa Or displayed are requested as in Section III.E.2.e. 
Mie format of the data values is also the object of user's 


Mee-ellication. It follows the prompt: 


The normal format aN cUgualawavapobeguayaleneye: 
Lome = weilemassigm VYOUr GOnrmac (ex.nnn.nnn) <CR> 





which gives the normal format (F14.6 i.e., 14 digits--6 
@ecimal) of the display or print. If modification is desired, 
an example-like assignment can be done as shown by tne 
prompt's example using any keyboard character. 
3. Assigning Information for the Rows 

Liew ence MoM Opm=ne  orOogram in the row information 
SeylrOnment 1S Similar to that of column information. Upon 
entering this environment the following menu-like table 


appears on the screen: 


SELECTION TABLE FOR ROW INFORMATION 


Number of rows (obligatory) 
Mnemonic names 

Row suppression 

Row rejection 

Row ranking 

Dis plaveeaow TiIrOormat lon 
Modiricaeton OL row info 
Data retrieval 
Display/primnte Of Gata file 
Answer 


e acs ee ae oe ae as oe ee oe 
WO MONTH UI PWN Fb 
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The process for the assignment Of Gacn Yortormacmem 
1s as follows: 


a. Number of Rows 


The number of rows is assigned when the prone 


Assign number of rows 


appears on the screen and can be up to 2048. 
b. Mnemonic Names 


For the rows of the data matrix, mnemonic names 
can be assigned for each individual row or for a user deter- 
mined set of rows. The desired kind of assignment is detéer= 


mined as SOOM as ENe prompe. 


Row by row 
By set of rows 
Answer 


appears on the screen. For the assignment Of How By eee 
names, the number of rows has to be given, followed yo aaa 


name just as requested by the prompts: 


Assign row number (<CR> ee REDUriy 
Assign mnemonic 


For assignment of names by sets of rows, the Gow Duma ee 
determining a set must be givén by the Users ee 


the set of the following prompts appears Onwenee clo = 


ao 


Common name set 
Peon crow 

TO row 

Name 


The number of common name sets is automatically given by the 
program. Termination of assignment is obtained by hitting 
<CR> instead of a row number. 

c. Row Suppression 

The row suppression operation is a physical 

Suppression of rows of the data matrix. Assignment of the 
rows to be suppressed can be done either by the row number 
Bieeoy the common name of the set. In this case, alli the 
rows of the set will be suppressed. The selection of mode 


momlLOows the prompt: 


By number of rows 
By eOow See Mane 
Answer 


In both cases, assignment of the data file to be suppressed 


must be made as in Section III.B. Assignment of row numbers 


1s done after: 


Assign no(s) of rows 


by printing the individual row numbers separated by a comma 


Memes, ¢,60,/) OF by a set of rows determined by two numbers 
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separated by a colon (e.g., 5:10). Both sorts Gi asSSieieeee 
can be done consecutively. For example, the Suppressed 
assignment 1,2,3,4,8,11,16:20 will cause Suppression wGemeeee 
rows 1,2,3,4,¢, eee eer ee If, after this assigqnmemes 
a display of row information is requested and the number of 
rows before suppression was 30, information appearing on the 


screen Will be as fells. ce 


Roe IN FO RM AY ieee 


RARE RRA RRR RR KK EK KAR KARA Oe 


NUMBER OF ROWS 


ee 
SUPPRESSIONS 
Suppression From Row To Row 
it 1 4 
2 8 8 
3 ti Leh 
4 ING 20 


The suppression assignment by a common name set 
of rows is done simply by assigning the name of the Seuwapeeg 


Che prompt: 


Suppression 
Seer lame 


d.. Row .Rejeceelen 
By this operation rows of a data Matrix canes 


assigned which are to be excluded from a Calculatien ae 


Sul 


determination of those columns can be done by their numbers, 
which will be stored in a sequential file. The name is 
defined by the user as the following prompts appear on the 


mel CCl: 


Assign sequential file for rejected values 

Key oo bon ee lor ORxXxx DAT number n, (nnn=076) 
Assigned rejected rows for calculus 

Assign no(s). of rows 


e. Row Ranking 
The row ranking, like column ranking, permits the 
assignment of the order by which the rows of the data matrix 
Peel be arranged. The assignment is done by the number of 


the rows after the prompt: 


Assia ols). Of “GOWwSs 


and the names of the old and new files (see Section III.B). 
tees how TnfOormacion 
iiceselecel leonwormmiro  Eable of the entry simply 
displays the assigned row information without any other user 
macervention. 
a Solr iedmiomeor Kkow TmrOrmation 
fiwseseeecracion, as in the column information 
Bevironment, permits modification of assigned information 


mrated tO rows of the data matrix, by the current run of the 


8 2 


program. In general the function Of €Ne See 7 aqme eee 
environment is similar to that for row moditveae tom ieee 


menu of the available modifications is the tate see 


MODIFICATION SELECTIONS i2a8e 


NUnb Gia @ feisenrs 

Mnemonics by row numbers 
Mnemonics by series of rows 
SUppress 2on 

Rank of rows 

Answer 


Un Bm WN FF 


(1) Number of Rows. The modification of the 
number of rows 1S simply a new assignment of the desired 


rows following the prompce. 


OlG> Mum ere eo fanto woe: 
Assign new number 


(2) Mnemonics by Rows. This operation permits 
modification of mnemonic names assigned individually for each 
row of the data matrix. The row number and name are required 


to be Given after ene prema. 


Assign column number 


—— 


and then the new name appears ateer olen eee. 


Old name 
Assign new name 
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(3) Mnemonics by Series of Rows. In this operation, 
the program permits modification of the set of rows with a 
common name or modification of the name of the set. The 
desired modification is determined with the assistance of 


the prompt: 


Sepueeemod Lime@ation <a 
Name modification 2 
Answer : 


Mmammocit&lication Of the Series of rows with a common name is 


desired, the number of the series (set) must be determined 


after the prompt: 


Assign series number 


and the old series is displayed on the screen to facilitate 


the new assignment: 


Old series 
Prom row 
L@ a rOwW 


more at the same time the prompt: 


Assign new series 
Paem Ow 
Wes COW 
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permits assignment of the new specification of the series. 
If modification of the common name of the set is CeSirecuueeus 


PEOMeE: 


Assign series number 


requests the number of the set to be modified. Then the old 
mnemonic appears on the screen together with the request for 


new mnemonic name assignment: 


Old mnemonic 
Assign new mnemonic 


(4) Suppression. As mentioned in Section ITII.E.3)% 


the suppressions automatically have sequence numbers 
attached to them. Modification of the suppressions is done 
by first assigning the suppression sequence number requested 


by the prompt: 


Assign suppression number 


Modification of the suppressed rows is facilitated by the 


display of the old suppression specification requesting ene 


new assignment: 


85 





Cleese press von 

BieOm GOW 

To Low 

Assign new suppression 
POM ao 

BO WOW 


© eee oekPonterows. —Jodl fication Of row ranking 


is executed by the following prompt: 


Old ranking 
Assign no(s) of rows 


h. Data Retrieval 
This is simply another place in the program where 
the retrieval of data can be obtained in exactly the same 
Peeeeas in Section JII.E.2.). 
ieee Dascelay/Print @f Data File 
This is an alternative position for display or 
print of the data file, executed the same way as in Section 
ime h.2.k. 
are Oicp lay ingman Existing Header 
This is the second mode of operation of the program. 
It simply displays either the column or row information of a 
Meader created by a previous run of the program. As has 
been mentioned, information of a created header is stored 
mia sequential file in secondary storage. This file is 


automatically opened by the program. Data are read and 
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displayed on the screen by the simple assignment o the name 


of the header's file requested by the promot: 


Name of header's file 


The next required assignment is the determinat tome 


column Or row iInfGrmatiomecuse lan. 


Column i nrormat feu 
Row LOEOrmar rou 
Answer 


EX1t Of the mode is obtained by <Gree 
3. Modifying an Existime@ieadan 
In this mode, the modification of a header created 
by a previous run of the program can be obtained by simply 
assigning the name of the header's file. 
4. Merging 
With this mode of operation, a merging of two data 
matrices and combination of their corresponding headers 1s 
obtained. This operation can be executed in the horizontal 
(column merging) or vertical (row merging) sense, invoeiwes 
words the matrices can be merged side by side or one over the 
other. Horizontal merging is only permitted by he paeawe 
if the two matrices have the same number of rows while vertical 
eerie is permitted if they have the same number of columns. 


The resultant headers in such an operation are as f£ouleuen 
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Row merging. 


- Column names: 


If tne same column has a mnemonic 

name in both headers, then the name o£ 
the first header (upper matrix) is Kept 
as the column name. Otherwise the 
unique name in either header is Kept 


as the column name. 


Beatin staat a hp-nemacing GxXtrema are assigned for 


the same column in both headers, then 
the minimum of the two minima and the 
maximum of the two maxima of the 
columns are Kept as tracing extrema 
HoaweweecOlunn. ~Ouhnerwise che unicue 
Minimum and maximum values are kept as 


Pate incmexe roma ter the column. 


- Row names: The names of rows of the two headers 


Sound mex ing - 


whenever they exist. 


The naming of the rows of the combined header is done 


in the same way as the naming of columns. Since the first 


one of the two merged data matrices is adjusted to the left 


Maememe Created Common matrix, the naming of the sets of rows 


of this file is kept as the common name for the corresponding 


Mews CL the new matrix. 


Miao ace tonnon Merging 1S executed without any 


extra intervention of the user, simply by assignment of the 


mm@tesneames of Che two headers to be combined: 
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Name of first Header svi 
Name of second Header sais 
Name of new Header's file : 


and the sort of desired merging: 


Row merging au 
Column merging :2 


The names of the files on which the two merged matrices are 


stored am the one on which the new one will be stored, uses 


the process described 1m Secrienme tie 
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Pec oNChUs tO fee) PERSPECTIVES 


The interactive-conversational character makes the system 
easily usable and independent of knowledge requirements. 
The language used for implementation (FORTRAN 77) makes it 
transportable. The separation of the data manipulation process 
from the calculations also makes it highly expandable. Since 
the developed system composes only the module for manipulation 
of the data, development of the remaining modules constitute 
the perspectives of the concept in order for it to be complete. 
Mae cycle of data analysis is realized if the following process 


is completed: 


(I DAMAN) 


== DATA STORAGE - DATA MANIPULATION - DATA te ee Id 


a < | 
| 


Data can be obtained and stored automatically by a 
previous program or by the keyboard under control of a 
specific program--the Interactive DAta LOaDer, IDALOD, 
which is under development by Dr. Daniel Guinier. 

Data treatment (statistical or mathematical) can be done 
PeemodtiriCarien of modules of EGxXisting packages by 

Bact Tome Orn ele wo SUbroulLimes READER, in relation with 


MPiemeineaaer file’ and REJECT, in relation with a 


a0 


"logical suppression file”. This file has been previous 

created by IDAMAN. Apolication DSreGiam see 

- one column (e.g., comparisons of means O& Sets mem 
observations stored in one or several columns)| 

- two columns (e.g., graphs including observed ana 
data fit with a given model), 

- several columns (e.g., multivariate statisticam 
analysis (discriminant, principal components, Ciijeaaam 

analysis), can be easily developed. There is no 

limitation to the expandability because these tasks 
are not included in the previous tasks of loading@wams 


Nanagemnen t=. 


Oa 





eee en 


FORTRAN 77 Source Code of Interactive Data Manager 


tte ee Ree ko Aer rk kik XK KK AX RR KAA A RRR EK KR KKK RK KKK KKK KEK KX 


Int 70a @ t i7y e Daa! a Meise CG €or 


This system provides the means for an interactive and 
self explanatory manipulation of large collections of 
data stored in direct-access files in secondary memory. 
The way the system can manipulate the data is such that 
facilitates the future statistical analysis of them. The 
system can execute the following manipulations 
Cece t ions) 


Eero GOLe ENemGata matrix. 

b. Multi-sort the data matrix. 

c. Search the data matrix for a value. 

d. Rearrangement the columns or rows of the data matrix. 
Pew LEonstormactvonm Of a column values. 

f. Randomization of the values of the entire data 
Matrix. 

Logical suppression of data. 

Display of the assigned HEADER. 

i. Display of ‘the data matrix. 
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By D.GUINIER and N.TOTOS (1984) 
Naval Postgraduate School, Depatrment of Computer Science 
Menterey, California 93940 


Van PABLES 
NCOL Peo wnuUmMoer “OL columns . 
NROW WLiesNuUMnDe wor BOWS. 

COLMNE : Array storing the column mnemonic names. 
NKEY ;: Array storing the numbers’ of columns which 
will be used as sorting guides. 

MNE : Array storing the names of columns which 
will be used as sorting guides. | 
ROWMNE1 : Array storing the row mnemonic names. 

ROWMNE 2 ; Array storing the mnemonics of sets of rows. 
NRANK Weed escOring the numbers of columns that 


CY Gr@) Oar) Ole) Clement Gh) ee) ey) Oerer) (Oy OO Oar Eee OO) Ore Orere rarer) Cy Oe 


assign the ranking of columns. 
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MRANK 


A,B 


SUPIy See 


RMIN, RMAX 


NCO 
NRO 
NTR 
NGEN 
NRIN 
NTIN 


SN 
FLAGI 


FLAG2 
FNAME 
HIFNAME 
H2FNAME 
NC 

NR 

NT 


Dal 
NN 


NM 
NNU 
KMN 
LEC 
IMP 
LOGN 
NOROW 


NBROW 


MOCO ADAAAANNONANNNAANAADAANNAADANANIADNDANANANAN 71) OG Greer tae ene 


Array storing tne names oOo: colUMmnS um 
assign tne ranking Of eo aimee 
Tne 
t 


Arrays storing mumper of row on whiG@ 
Start a set oOo common name rows and tae 
corresponding on which ends the set. 

Arrays  StOniog aes numper of row on whig@ 
Starts suppression of rows and the 
corresponding on which ends the suppressioms 
Arrays storing the minimum and maximum 


values between which tracing of the Gata 
going to take place. 

The numbers of columns for whicn fave Seem 
assigned names. 

The numbers of rows for which have bdeen 
assigned names. 

The column numbers for which tracing extrema 
have been assigned. 

The invert relative addresses of COLMNE. 
The invert relative addresses of RCOWMNE1. 
The invert relative addresses of RMIN,RMAX. 
The number of assigned suppressions. 
Integer array of six elements used as fla 
to indicate the existence or not oni 
several informations regarding the columns. 
The corresponding tlaqg 16) se -—. 

The name of the sequential file assigned by 
the user for on which the headers's date 
will be stored. 

The mame of the first header's file which 
willl be merged. 

The name of the second file for merging. 

The number of assigned column mnemonic names 
The number of assigned row mnemonic names. 
The number of columns for which tracuam 
extrema have been assigned. 

The number of assigned tracing extrema secs, 
The number of repeated sortings dacCOnaiims 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of columns used for ranking. 

The number of column names used for ranking, 
The logical unit for writing on the termine 
The logical unit for reading from the 
terminal. 

The logical chanel for the file on wh Velie 
header,s data will be stored. 

Array the numbers of rows used as guides 
for the ranking of the rows. 

The number of row numbers used for row 
ranking 


mae awKR KKK KKK RAK KKK KKK KKK KKK KR K RK KK KKK KK EK KKK KK XX KX eee 


a3} 
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BEGCEARATIONS 


mre cee 


PMPEICIT INTEGER*2Z CI-N) 


MRE GER*2eSN,FLAGI(6),, ~LAG2 (4) ,NKEY 


it 
2 


3 


Po eeNern Kk ( 12697 
NCO( 128), 
NRI (2048 ae 


med 

SOE SUP1(128), SUP2(128) 
555) wrIN() 28 
ie 


) 
NOROW( 2048) ,A(128) ,NCIN(128) 


REAL*4 RMIN(128),RMAX(128) 
CHARACTER*24 FNAME,HILFNAME,H2FNAME,IND,COLMN=E(123), 


il 


2 


MNE(128) ,MRANK(128) , ROWMNE1 (2048), 
ROWMNE2 (128) 


HeEGTEAL™ | STAM STAT] STAT? 
DATA LEC, IMP,LOGN/5,6,0/ 


IDUM=1 
DO WHILE (IDUM.EQ.1) 


Ht UW RO FF? Ht LO NF? H#=> UO RO FF 


H=> OG RO FF 


IDUM=0 
WRITE(IMP,100) 
READ(LEC,200) IND 
Leer N Ds tO.” THEN 
CALL CREATE(LEC, IMP,LOGN, FLAG], FLAG2,NCOL,NROW, 
COLMNE,NC,NCO,NCIN, ROWMNEL,NR,NRO,NRIN, 
ROWMNE2, RMIN, RMAX,NT,NTR,NTIN,NKEY,MNE,NN, 
NM, IJ,A, B, NRANK, MRANK, NNU, XKMN,SUP1,SUP2,SN, 
NOROW , NBROW) 
I DUM=1 
PiSaelr (INDSEO.' 2') THEN 
CALL DISPLA(LEC, IMP,LOGN,FLAGI1,FLAG2,NCOL,NROW, 
COLMNE ,NC,NCO,NCIN, ROWMNE1L,NR,NRO,NRIN, 
ROWMNE2 ,RMIN,RMAX,NT,NTR,NTIN,NKEY,MNE,NN, 
NM, IJ,A,B,NRANK,MRANK,NNU,KMN,SUP1,SUP2,SN, 
NOROW , NBROW) 
IDUM=1 
BUSHely ~IND 20. 3) THEN 
CALL MODIFY(LEC, IMP,LOGN, FLAG], FLAG2,NCOL,NROW, 
COLMNE,NC,NCO,NCIN, ROWMNE1L,NR,NRO,NRIN, | 
ROWMNE2, RMIN, RMAX,NT,NTR,NTIN,NKEY,MNE,NN, 
NM,IJ,A,B,NRANK,MRANK,NNU,KMN,SUP1,SUP2,SN, 
NOROW , NBROW) 
IDUM=1 
Bese) Le GNipe so 4) Ree N 
CALL MERGE(LEC,IMP,LOGN,FLAG1, FLAG2,NCOL,NROW, 
COLMNE,NC,NCO,NCIN, ROWMNE1],NR,NRO,NRIN, 
ROWMNE2,RMIN, RMAX,NT,NTR,NTIN,NKEY,MNE,NN, 
NM, IJ,A,B,NRANK,MRANK,NNU,KMN,SUP1,SUP2,SN, 
NOROW, NBROW) 
IDUM=1 
ELSE IF (IND.EQ.' ') THEN 
I DUM=0 
ELSE 
WRITE( IMP, 300) 
EeUM= 


94 


END te 


ENDO 

G FORMATS 

& SS eee 

Cc 

100 FORMAT(/////13K,' AVAILASLY MOSS. == 
i Oe TE ar Pi a 1 / 
2 4X,'Creation of new header : a 
3 4X,'Disolay of existing Meade: : 2a 
4 4X, 'Modification of existing neader (um 
a 4X,'Merging of two existing headers 34°/7 


Nee a 


6 S$) 3k, Alls ves 
200 FORMAT (A24) 
300 FORMAT(/3X,'INVALID CHARACTER! !') 


END 


CR KKKKKKK KK KKK KARR KKK KKK KKK KR KKK RK KKK KARA KKK KKK RAE KK RK KKK KKK KE 


SUBROUTINE CREATE( LEC, IMP,LOGN, FLAG1, FLAG2 , NCOL, NROW, 


i COLMNE,NC,NCO,NCIN, ROWMNE], NR NRO” Nae 

2 ROWMNE2 ,RMIN, RMAX,NT,NTR,NTIN, NAEY , MNES 
3 NM,IJ,A,B,NRANK,MRANK,NNU,KMN,SUP1 , SUP2Zaae 
= NOROW , NBROW) 


CARR KR KKK KKK KKK RK KK RK RK KKK KARR KKK KA KKK KARR KKK KKK KKK KKK KKK KK KEKE 


& 

C This subroutine 1s used for the creation of a new headem 
Ss 

ce ARGUMENTS 

Cc ae a Se 

e 

C BEG ; The logical unit number for writing on age 
G terminal. 

C IMP ; The logical unit number for reading £rOmujagm 
C terminal. 

c LOGN >: The logical unit for the file on wWhilG@iiae 
e header,s data will be stored. 

@ PFLAG! : Integer array of six elements usec as [1aG 
C to indicate the existence or not Gige 
G several informations regarding the columns. 
G FLAG2 : The corresponding flag Miemene ce 

e NGOE : The number of seo Puingae 

c NROW : The number of rows. 

C COLMNE ; Array storing the column mnemonic name 

G NC : The number of assigned column mnemonic names 
‘2 NCO : The numbers of columns for which have been 
ce assigned names. 

G NCIN : The invert relative addresses of COLMNE, 

ke ROWMNE 1 : Array storing the row mnemonic names. 

C NR : The number of assigned row mnemonic names. 

S NRO : The numbers of rows for which names have 
G been assigned. 

e NRIN : The invert relative addresses of ROWMNE. 
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ROWMNE 2 : Array storing the mnemonics of sets of rows 

RMIN,RMAX + Arrays storing the minimum and maximum 
values between which tracing of the data is 
SO MiGmea -axe place, 


NT TS PicoweMenoeswOre = solinns E@r which tracing 
extrema nave been assigned. 

NTR : The column numbers for *WHich tracing 
extrema have been assigned. 

NTIN Nigemmiiwerme relative adcresses Of RMIN, RMA. 
NKEY : Array storing the numbers of columns whicn 
will be used as sorting guides. 

MNE : Array storing the names of columns which 
will be used as sorting guides. 

NN : The number of repeated sortings according 

column numbers. 
NM : The number of repeated sortings according 
column mnemonic names. 
[J : The number of assigned tracing extrema sets 
A,B : Arrays storing the mumber of row on which 


starts a set of common name rows and tne 
corresponding on which ends the set. 


NRANK s Array storing the numbers of columns that 
assign the ranking of data 

MRANK Mowe eweessOringeetme Names of columns that 
assign the ranking of data 

NNU : The number of columns used for ranking. 

KMN : The number of column names used for ranking 

SUP1,SUP2 : Arrays storing the number of row on which 
starts suppression of rows and tne 
corresponding on which ends the suppression 

SN : The number of assigned suppressions. 

NOROW : Array the numbers of rows used as guides 
fOrerne sw anking Of the rows. 

NBROW : The number of row numbers used for row 
ranking 


era RK rR kR KR Kaha eRe K KKK KKK KK KKK KKK KKK KKK KKK KKK KK 


MEG GY Geer @) Gir (1) OY GC) CNG OO) Gr OC) Cremer Ore Oi Grr) yO) Oi) OO) 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 SN,FLAG1(6),FLAG2(4),NKEY(128) ,NRANK(128), 


l B(128) ,SUP1(128) ,SUP2(128) ,NCO(128) ,NCIN(128), 
2 NRO(128) ,NTR(128) ,NTIN(128) ,NRIN(2048), 
3 NOROW( 2048) ,A(128) 


REAL*4 RMIN( 128) ,RMAX(128) 
CHARACTER*24 FNAME, COLMNE(128),MNE(128),MRANK(128), 
l ROWMNE1 (2048) , ROWMNE2(128),IND,HILFNAME,H2FNAM= 
BoGlech~1 STAR STATI STAT2Z 
Request a name for the file on which the data of the 
meager will be Stored. 


‘enene 


WRITE( IMP, 200) 
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REA 
c a 
INQ 
c I 


re 


D(LEC,10G) FNAME 
xamine 1f a file whith this name alreacy ex ssuee 
UIRE (PILE=FPNAME, 2x1 ST-sec 


f not, open a new sequential file. 


(STAT, 2O yaa Lis Ee ane 
OPEN (UNIT=LOGN, FILE=FNAME ,STATUS='NEW' ) 


G Call the subroutine which will request fcr gage 
G Or row informations. 
CALL CRINFO( LEC, IMP, FLAG], FLAG2 ,NCOL,NROW, COLMNG, 
a NC ,NCO,NCIN, ROWMNE1,NR,NRO,NRIN , ROWMN ee 
2 RMIN,RMAX,NT NTR SNTIN,NKEY ,MNE, NN | Nie 
3 A,B,NRANK,MRANK,NNU,KMN,SUP1 , SUP 25am 
4 NOROW , NBROW) 
C Record the assigned data in the opened file for 
C future reference. 
CALL WRITER (LOGN, FLAG], FLAG2,NCOL,NROW,<AMN,NNU,NN, 
1 NM, [J,A,8,COLMNE,NC,NCO,NCIN, RM![N (eee 
2 NT, ,NTR,NTIN, NKBY ,MNE, NRANK Mea 
3 ROWMNE1,NR,NRO,NRIN, ROWMNEZ, SUP] ages 
= SN, NOROW, NBROW ) 
G If the file already exists, respond with a messace. 
Bist 
WRITE( IMP, 300) 
IDUM=1 
END ie 
c FORMATS 
cc ee 
c 


100 FORMAT (A24) 
200 FORMAT (///'S',3X,'Name of Reade state 
300 FORMAT (///4XK,'THE PILE AUSEAD ae enol ee) 


no 
END 


Cx KKKKK 


SUB 

i 

2 

3 

4 
Cxxxxkxexkxk 
C 
C This 


URN 


KKKEKKEKK KK KK KEK KKK KRKKE KK KK KKK KKK KKK KK KK KX KK RK eee 


ROUTINE DISPLA(LEC,IMP,LOGN,FLAG1,FLAG2,NCOL,NROW, 
COLMNE,NC,NCO,NCIN, ROWMNE1,NR,NRO, 
NRIN, ROWMNE2 , RMIN, RMAX,NT,NTR,NTIN, 
NKEY,MNE,NN,NM,IJ,A,B,NRANK ,MRANK,NNU, 
KMN,SUP1,SUP2,SN,NOROW , NBROW) 


KREKKKKEKKKKEKEK KEKE KEK KK KKK KKK KEK KKK KKK KKK KK KX KK KK XK Ae 


subroutine 1s used to display the data of a preveusly 


oL/ 


Graney Gy Grea) a) 0 re memento car 0) 0) 0) 0) C1 0 07 FY Or One are) ©) G) ON erar ae Greer GG) OC), Git 


defined neader. 


ARGUMENTS 


BC 

IMP 
LOGN 
be Gi 
FLAG2 
NCOL 
NROW 
COLMNE 
NG 

NCO 
NCIN 
ROWMNE 1 
NR 

NRO 
NRIN 
ROWMNE 2 
RMIN, RMAX 
NT 

NTR 


NTIN 
NKEY 


MNE 
NN 

NM 

1G | 
A,B 
NRANK 


MRANK 


ic teqiea tre numoaer [Or warting on the 
terminal. 

The logical unit number for reading from tne 
terminal. 

The logical unit for the file on which the 
header,s data will be stored. 

Integer array of six elements used as 
to indicate th existence or not 0: 


The corresponding flag for rows. 

The number of columns. 

Ene wnuUmeaer “Of scows . 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names 
The numbers of columns for which have been 
assigned names. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
Array storing the mnemonics of sets of rows 
Arrays storing the minimum = and maximum 
values between which tracing of the data is 
Gernmgeto Cakeualace’. 

The number of columns for which tracing 
extrema have been assigned. 

The column numbers LOT Maven @yeraeing 
extrema have been assigned. 

The invert relative addresses of RMIN,RMAX. 
Array storing the numbers of columns which 
will be used as sorting guides. 
Pagdivyestomung the names of columns which 
will be used as sorting guides. 

The mumber of repeated sortings according 
Column mMumbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing extrema sets 
Arrays storing the mumber of row on which 
Starts a set of common name rows’ and the 
corresponding on which ends the set. 
Peuaveseeringesene mumbers, of columns that 
assign the ranking of data | 
Array storing the names of columns that 
assign the ranking of data 


a6 


MAAN YOO GG arene 


NNU : The number of columns USeCQ fOr amas 


KMN : Tne numper of column names used for Sarum 

SUP1,SUP2 3" Argaysns som as the number of row on whica 
StartS  SUDDrSSs2oneeem Tove and che 
corresponding on whichmemee che SUDDreSSILON 

SN : The number of assigned suppressions. 

NOROW : Array the numbers of rows used as semua 
for tne ranking of tne rows, 

NBROW : The number of row enumec.— used fOr am 
ranking 


REKKKEKKKEKEKEKREKKEKRKR KEKE RRR KKK KEKE KKK KKK KKK KKK KKK KA eee 


IMPLICIT INTEGER*2 (I-N) 


INTEGER*2 SN,FLAG1(6),FLAG2(4) ,NKEY(128) ,NRANK(128), 
1 B(128),SUP1(128), SUE ee ee NCIN(1269m 
2 NRO(128),NTR(128), NTIN(128) ,NRIN( 2048), 


NOROW(2048),A(128) 
REAL*4 RMIN(128) , RMAX(128) 
CHARACTER* 24 FNAME, COLMNE(128) ,MNE(128) ,MRANK(128), 
l ROWMNE1 (2048) ,ROWMNE2(128),IND,H1FNAME, 
H2 FNAME 
LOGICAL 1 SSTAT Ss te ees oe 


WRITE( IMP, 200) 
Request the name of the file. 


READ(LEC,100) FNAME 
INQUTRE( PIE E=FNAME 2 Sse =s haw 


If the file exists open it. 


LP (STAT. EO TRUE. )9 GaN 
OPEN(UNIT=LOGN, FILE=PNAME ,SRARUS= OFDee 
REWIND LOGN 


= 


Call the subroutine READER to read che data of tmeuyuee 


CALL READER(LOGN, FLAG], FLAG2,NCOL,NROW,KMN,NNU,NN,NM, 
IJ ,A,B, COLMNES NG@ieor NCIN, RMIN, RMAX, NT, 
NTR,NTIN, NKEY,MNE, NRANK, MRANK, ROWMNEL,NR, 
NRO,NRIN, ROWMNE2, SUP1,SUP2,SN,NOROW, NBROW) 


to NM Fe 


IDUM= 1 
Loop for succesive display Gapasl waar 


DO WHILE(IDUM.EQ.1) 
I DUM=0 


Request for column or row display. 


WRITE( IMP, 300) 
READ(LEC,100) IND 
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oe (Nees a) THEN 
C If column display is requested; 


Cleon meeeeGeimMe, rlAG!, NCOL,COLMNE,NC,NCO, 


1 NCIN, RMIN, RMAX,NT,NTR,NTIN,NXEY,MNE, 
2 NN ,NM, NRANK ,MRANK,NNU,XMN) 
LDOM= 2 
Bice Loren N@ies@ 2.) TREN 
- If row display 1s requested; 
CALL RDISP(LEC, IMP, FLAG2,NROW, ROWMNEL,NR,NRO, 
1 NRIN,ROWMNE2,IJ,A,B,SUP1,SUP2,SN, 
2 NOROW, NBROW ) 
IDUM=1 
C hese Stoo the loop. 
EES! lowe sO. wee THEN 
IDUM=0 
S If invalid character is hit give an error message. 
ELSE 
WRITE(IMP,400) 
IDUM=1 
END IF 
END DO 
END IF 
€ FORMATS 
oe ee a aia cea, oe 
C 


Leys, FORMAT (A24) 
20.0 BORMAT(///'S',3X,'Name of header''s file :!) 


300 FORMAT (///4X, [GolunmernioOumations alles 
i /4X, "Row informations aon 
2 (a oe ANS wer 3) 
400 FORMAT (/3X, 'INVALID CHARACTER! !') 
RETURN 
END 


CRRKKKKK KK KKK KKK KKK KKK RRR KR RRA RKRRRKaR KKK KR RRR KK RRR KK RR KKK KR KK 


SUBROUTINE MODIFY(LEC,IMP,LOGN,FLAGI1,FLAG2,NCOL,NROW, 


i COLMNE,NC,NCO,NCIN,ROWMNE1,NR,NRO,NRIN, 
2 ROWMNE2,RMIN,RMAX,NT,NTR,NTIN, NKEY,MNE, 
3 NN,NM,IJ,A,B,NRANK ,MRANK,NNU,KMN,SUPI1, 
4 SUP2,SN,NOROW, NBROW ) 


CRKK KKK KK KK RK KK KR RK KKK Kk KOK kk kok KOK kok kok kk Ok Ok OK KOK KO kk kk kk OK ee ek 


C 
e iMimsesiibrowrime 15 Used for modification of an existing 


AAA ADOADNNNONANANANADAANAANANANANAANNANANNAANNAADADADOAA1O Oe eee res ene 


header. 


ARGUMENTS 


—— eee 


eS 

tie 
LOGN 
PLAGE 
FLAGZ 
NCOL 
NROW 
COLMNE 
NG 

NCO 
NCIN 
ROWMNE 1 
NR 

NRO 
NRIN 
ROWMNE 2 
RMIN, RMAX 
NT 

NTR 


Nei 
NRE? 


MNE 


NN 


ky 
AGS 
NRANK 
MRANK 


NNO 


The logical unit numder for writing Gi 
terminal. 

The logical unit number for reading 1! Gineaae 
terminal. 

The logical unit for the file on when 
header,s data will be stored. 

Integer array of six elements used as flag 


to indicate the existence or not "Guus 
several informations regarding the columns. 
The corresoonding tlaq ta78ra oe 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names 
The mumbers of columns for which have bee 
assigned names. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE, 
Array storing the mnemonics of sets Of =iG@me 
ArrayS storing the minimum and maximum 
values between which tracing of the data is 
going to take place. 

The mumber of columns for which tracing 
extrema have been assigned. 

The column numbers hen which traqum 
extrema have been assigned. 

The invert relative addresses of RMIN,RMAX. 
Array storing the numbers of columns wnica 
will be used as sorting guides. 

Array storing the names of columns Whag@ 
will be used as sorting guides. 

The number of repeated sortings accordiias 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing extrema secs 
Arrays storing the mumber of row GM) wae 
Starts a set of common name rows and tne 
corresponding on which ends the set. 

Array storing the numbers of columns that 
assign the ranking of data 

Array storing the names of columns that 
assign the ranking of data 

The number of columns used for ranking. 


GE 


COO rrr a m) O-O) 


KMN Mit wilumoereor column names used for randaing 
See ser eee aay SeSscO> img etme numbers of row on which 


Ser eos DOceSSlOm Of rows and she 
corresponding on which ends che suporession 

SN UV eomamisem el assigned suppressions. 

NOROW See rdy= oh numbers of rows used as guides 
non nom aanxlng Of the rows. 

NBROW ene MaMeer, OL row numbers used for row 
ranking 


Cir Ke kX kK KK re A ke Ke KKK KKK KKK KKK KKK RK KKK KR KEK KKK KKK EK KKK 


[IMPLICIT INTEGER*2 (I-N) 


INTEGER*2 SN,FLAG1(6),FLAG2(4) ,NKEY(128) ,NRANK(128), 

i eer ete 28) (N NGO hese Neen 2S). 
2 NaO@2eeNme (128) NTIN( 128) ,NRIN(2048), 

3 NOROW(2048) ,A(128) 


REAL*4 RMIN(128) ,RMAX(128) 

CHARACTER*24 FNAME, COLMNE(128) ,MNE(128) ,MRANK(128), 
1 ROWMNE1 (2048) , ROWMNE2(128),IND,H1IFNAME, 
p H2FNAME 

WeCnenn= | STAT, STATI), STAT 2 


Request the name of the file where che data of the 
exlsting header are stored. 


WRITE( IMP, 200) 
READ(LEC,100) FNAME 
INQUIRE(FILE=FNAME, ZXIST=STAT) 


PioreieommimnewexlSts Open it 


Be ShAn BO..TRUE.) THEN 
OPEN(UNIT=LOGN, FILE=FNAME,STATUS='OLD' ) 
REWIND LOGN 


Read the data of the existing header. 


CALL READER(LOGN, FLAG], FLAG2,NCOL,NROW, KMN,NNU,NN,NM, 
IJ,A,B,COLMNE,NC,NCO,NCIN,RMIN,RMAX,NT,NTR, 
NTIN,NKEY,MNE,NRANK,MRANK, ROWMNE1,NR,NRO, 
NRIN, ROWMNE2,SUP1,SUP2,SN,NOROW, NBROW) 


Co 


@itoses the old file, 
CLOSE (UNIT=LOGN) 
Open a new file with the same name. 


OPEN (UNIT=LOGN, FILE=FNAME, STATUS='NEW' ) 
IDUM=1 


Loop for succesive modification capability. 


eZ 


Noe 


nH GI NF 


H OI NF 


DO WHI 


Cet UM 2 Ore 
IDUM=0 
Request for column or Yow mod?7 5 Weegee 


WRITE UIMe ue 
READ(LEC,100) IND 


If column modification 1s @ecmegeee 
IF CINDSHO. ears 
Call COLMOD for column med? = teaw een 


CALL COLMOD(LEC, IMP, FLAG1L,NCOL, NROW, COLMNa ae 
NCO,NCIN,RMIN, RMAX,NT,NTR,NTIN, 
NKEY,MNE,NN,NM,NRANK, MRANK, NNU, XMN) 


Call WRITER to record the modified heagawa 
data. 


CALL WRITER(LOGN,FLAG1,FLAG2,NCOL,NROW, KMN, 
NNU,NN,NM,IJ,A,B,COLMNE,NC,NCO, 
NCIN,RMIN,RMAX,NT,NTR,NTIN,NKBY, 
MNE , NRANK, MRANK, ROWMNE=E1,NR,NRO, 
NRIN, ROWMNE2,SUP1,SUP2,SN,NOROW, 
NBROW ) 

IDUM=1 


If row modifEleGation 13 36esi1 ree 
ELSE IF (IND.EQ.'2') THEN 
Call ROWMOD for row mod titecartvene 
CALL ROWMOD( LEC, IMP, FLAG2,NCOL,NROW, ROWMNE1,NR, 
NRO,NRIN, ROWMNE2,IJ,A,3,SUP1,SUP2, 
SN,NOROW, NBROW) 


Call WRITER to record the modified header's 
data. 


CALL WRITER(LOGN, FLAG], FLAG2, NCOL, NROW, AMN nie 
NN,NM,IJ,A,B,COLMNE,NC,NCO,NCIN, 
RMIN, RMAX,NT,NTR,NTIN,NKEY,NME, 
NRANK , MRANK, ROWMNE1,NR,NRO,NRIN, 
ROWMNE2 , SUP1,SUP2,SN,NOROW, NBROW) 
IDUM=1 


If <CR> stop ene Veoue 


ELSE IF (INDJE@S Sy eae. 


103 


IDUM=0 


c MemeitveeleGmetaaaereer 15 Mit Give an error message. 
ELSE 
WRITE(IMP,500) 
IDUM=1 
Eom 
END DO 
C If the file does not exist give an error messade. 
BLSE 
WRITE( IMP, 300) 
IDUM=1 
Bo Le 
Se FORMATS 
C ee ee 
C 


100 FORMAT 
200 PORMAT 
300 FORMAT 


A24) 
oeee eee Neme Gof Meader (“S file :*) 
Vee ok Te SILE DOES NOT EXIST!!' ) 


gg gt 


400 HORM wwe 7 2 Column: )'/4x,' Row 22, of | Same 
it "Answer :') 

500 FORMAT(/3X, ' INVALID CHARACTER! !') 
RETURN 
END 


CRRKKKKKKKKKKEKKKKEKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KR KK KKK KKK KK KK 


SUBROUTINE MERGE(LEC, IMP,LOGN, FLAG], FLAG2,NCOL,NROW, 


ik COLMNE,NC,NCO,NCIN, ROWMNE!,NR,NRO,NRIN, 
2 ROWMNE 2 RMIN-RMAX NIT,NTR,NTIN,NKEY,MNZz, 
3 Nii lo, AB, NRANK ,MRANK,NNU,KMN,SUP!, 
4 SUP2,SN,NOROW, NBROW) 

CRREKKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK K RK RK RRR KR KKK KKK RK KK KKK 

© 

€ This subroutine is used to merge two existing headers. 

e The merging can be executed in the rOw- row Or 

e column-column sense. 

e 

c ARGUMENTS 

c. a eee ae 

s ARGUMENTS 

Cc ee eee 

e 

c LEC ite wlogitedieimit mumber for writing on the 

C Sem Mao. 

er IMP ol eewlogiGal. Unite number for reading from the 

€ Eermina., 

E LOGN tom ectea Une tor tne Eile on wnich the 

e header,s data will be stored. 
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MOMOAOOIOAOANKNADONDNNDNNANNANANNANNANNANANANDANANAANANANONNOAMNN ON Os eee eee 


FLAG] 


FLAG2 
Neer 
NROW 
COLMNE 
NG 

NCO 


NCIN 
ROWMNE 1 
NR 

NRO 

NRIN 
ROWMNE 2 
RMIN, RMAX 
NT 

NTR 


NTIN 
NKSy 


MNE 
NN 

NM 

[J 
ao 
NRANK 
MRANK 
NNU 


KMN 
Soe Sur 


SN 
NOROW 


NBROW 


@e6 e@ 26 ee ee ae @e¢ 


ee a@ a@¢ 


a6 


6 o@ ee a@ 


ae a6 26 


ae 


[Integer “aaney on 
to indicate the 
several informat: 
The corresoondc | quale 
The number Of ¥eouURiise 
The Aumber Of GOwse 
Array storing the column mnemonic namees 

The number of assigned column mnemonic names 
The numbers of columns for which have Deer 
assigned names. 

The invert relative addresses of CODMMms 
Array storing the row mnemonic names, 

The number of assigned row mnemonic names. 
The numbers of rows for which names Rave 
been assigned. 

The invert relative addresses of ROWMN2. 
Array storing the mnemonics Of SetS Gira 
Arrays storing the Minimuneage maximum 
values between which tracing of the data 15s 
going to take place. 

The number of columns for which traewig 
extrema have been assigned. 

The column numbers [oT which trac ie 
extrema have been assigned. 

The invert relative addresses of RMIN, RMAX, 
Array storing the numbers of columnSi7iygam 
will be used as sorting guides. 

Array storing the names of columns )4ige@ 
will be used as sorting guides. 

The number of repeated sortings according 
column numbers. 

The number of repeated sortings acconcuias 
column mnemonic names. 

The number of assigned tracing extrema sets 
Arrays storing the mumber of row on wha 
starts a set of common name rows and tne 
corresponding on which ends the set. 

Array storing the numbers of columns tiem 
assign the ranking of data 

Array storing the names of columns that 
assign the ranking of data 

The number of columns used for ranking. 

The number of column names used for ranking 
Arrays storing the number of row On whale 
Starts  SUDDress]onwsee rows and che 
corresponding on which ends the suppression 
The number of assigned suppressions. 

Array the numbers of rows used as guides 
for the ranking Gf wenewsge-7-e 

The. number of row numbers used for row 
ranking 


RHRKEK KKK KERR KKK KKK KEK KEK KKK KKK KKK KKK KKK KK KK KKK KX X KOK eee 


Cre 


a4 


Pei. ecl Ty INTEGE Rea NS 


INTEGER*2 SN,FLAG1(6),FLAG2(4),NKEY(1 NRA NKX(128), 

1 B(128). 225s) hol: See IN (128), 

2 es 1555 NrIN( 1 ZeeweNRIN( 2023), 

3 NOROW( 2048) ,A(128) 

REAL*4 RMIN(128), RMAX (128) 

CHARACTER*24 SNAME, COLMNE(128) ,MNE(128) ,MRANK(126), 

1h ROWMNE1 | 2048), ROWMNE2(128), IND, HIFNAME, 
H2FNAME 


POoCnG res I STAr, oral) Sear Z 
I DUM=1 
E@eopuln Case Or User Input errors. 


Dem whl TDUM. 20.1) 
IDUM=0 


Request the name of the first file to be merged; 
examine if 1t exists. 


WRITE(IMP,400) 
READ(LEC,100) H1IFNAME 
[NOUR Er Pen=2lr NAME, EXIST=STAT1) 


If does not exist print an error message and repeat 
the request. 


ee “USTAMINeOs, FALSE.) “THEN 
WRITE( IMP, 300) 
IDUM=1 

ELSE 

END IF 


Request the name of the second file to be merged; 
examine i we Exists. 


WRITE(IMP,500) 
READ(LEC,100) H2FNAME 
INQUIRE( FILE=H2FNAME, EXIST=STAT2) 


If does not exlst print an error message and repeat 
the request. 


Polat 2 ee O unr ALS.) THEN 
WRITE( IMP, 300) 
IDUM=1 
BNDP LE 
If both files exist, request name for the new file. 


cack em Re eaAND» STAT? .50..TRUE.) THEN 
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100 
200 
300 
400 


WRITE(IMP,700) 
READ LEGa lac) = NAME 
Examine if He = vle sere 


INQUIRECSILE=FPNAME , 2K1Su—=sue 


If not, request ii column or yrow merging is GOUT agu 
be executed. 
IF (STAT. 20, (Anse. woe 
WRITE( IMP, 600) 
READ(LEC, 100) IND 
If row merging call COMROW 
IF CINDIZO7 2 Ue iHeN 
CALL COMROW(LEC, IMP,LOGN,NCOL,NRCW,FLAG:, 
i FLAG2 ,COLMNE,NC,NCO,NCIN, foe 
2 ROWMNE1,NR,NRO,NRIN, RCWMNEZ, 
3 HIFNAME , H2FNAME, RMiN, RMAAUNES 
4 NTR,NTIN) 
OPEN (UNIT=LOGN, FILE=FNAME,STATUS= Nowa 
CALL WRITER(LOGN,FLAG1, FLAG2 ,NCOL, NROW,AMae 
1 NNU,NN,NM,1J,A,B,COLMNE,NC,NCO, 
2 NCIN, RMIN, RMAX,NT,NTR,NTIN,NKEY, 
3 MNE, NRANK,MRANK, ROWMNE1,NR,NRO, 
4 NRIN, ROWMNE2,SUP1,SUP2,SN,NOROW, 
5 NBROW) 
ELSE IF. <{IND.HO. 23 
CALL COMCOL(LEC, IMP, LOGN,NCOL, NROW, -oaeae 
jl FLAG2 ,COLMNE,NC,NCO,NCIN, Ig ae 
y ROWMNE1,NR,NRO,NRIN, ROWMNEZ2, 
3 HLFNAME ,H2FNAME, 23MIN, RMAX,NT 
4 NTR,NTIN) 
OPEN(UNIT=LOGN, FILE=FNAME, STATUS=—= Nera 
EXCE WRITER(LOGN, FLAG, FLAG2, NCOL,NROW,XMN, 
1 NNU,NN,NM,IJ,A,3,COLMNE,NC, NCO, 
2 NCIN, RMIN, RMAX ,NT,NTR,NTIN, NAey, 
3 MNE, NRANK ,MRANK, ROWMNEL,NR,NRO, 
4 NRIN, ROWMNE2, SUP1,SUP2,SN,NORCW, 
5 NBROW ) 
END IF 
ELSE 
WRITE( IMP, 200) 
IDUM=1 
END IF 
END IF 
END DO 
FORMAT (A24) 
FORMAT (///4X,'THE FILE ALREADY 92x15 ie 


FORMAT(///4X%,'THE FILE DOES NOTes. 1s) ae 
FORMAT(///'S',3X,'Name of first Header (sec oe 


LO? 


500 PORMAS (. S "eran 
600 PORMAg@ 77 4X. 


i 


2 OS aa 
700 ORM tes 34 


RETURN 
END 


'Name of ee Header''s file :'} 
"ROW Merging LT 
PGolinne merging °2°, 
,' answer oe 
Siiamer oterney. seader'’'s File :'} 


Meemex RX XKKKAKKEKAKK XK AKKKXKKKKKKKAAKAKKKKKKKKKKK KAKA KKK KAA KK 


Soe ioe n it elmee. tM SLAGl, -LAGZ,NCOL,NROW,COLMNE, 


i 
a 
5 
4 


NC,NCO,NCIN, ROWMNE1,NR,NRO,NRIN, 
ROWMNE2, RMIN, RMAX, NT NTR: NTIN,NKEY, 
MNE,NN,NM,IJ,A,B,NRANK ,MRANK,NNU,KMN, 
SUP1,SUP2,SN,NOROW,NBROW) 


eee A KKK KKK KKK KKKKKKKKXKKKKKEKKEKKKKKKKKEKKKKKKKEKKKEKKKKKKKK KK X 


ARGUMENTS 


HS 
IMP 
LOGN 


FLAG] 


FLAG2 
NCOL 
NROW 
COLMNE 
NC 

NGS 


NCIN 
ROWMNE 1 
NR 

NRO 


NRIN 
ROWMNE2 
RMIN, RMAX 
NT 


NTR 


Quaracy ©) @On@m@na Gr) ie) Gren) (Orerem@ra CY Ore) CY CY Cr Or Gran (1) CO). 


NTIN 


hiemwiadwtesd! Unle nUMber for writing on «he 
terminal. 

Miemkoqtedl  Untt aumiper Lor reading from the 
terminal. 

The logical unit for the file on 
header,s data will be stored. 
Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names 
The nmumbers of columns for which have been 
assigned names. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
A@aayestoring ene mnemonics of sets of rows 
MaaayomeeseOhing » ene Minimum and maximum 
values between which tracing of the data is 
going to take place. 


Ww ihemec e 


Tie numnse=asot Scollmnis stor which tracing 
extrema have been assigned. 
Ties aol uimn numbers MOG MOUe@, EaeaaG 


extrema have been assigned. 
The invert relative addresses of RMIN,RMAX. 


Gg 


NKEY : Array storing the numbers of columns )¥ageg 
Will be usec aS SOTe2ivemeeu scl 


MNE : Array storing the nameS Of COoOlUMNS yaa 
will be used &S SOr2ingmeurecam 

NN ; The number of repeated sortingsS accGhGimas 
column numbers. 

NM ; The number of repeated sortings according 
column mnemonic names. 

eal ; The number of assigned tracing extrema secs 

A,B ; Arrays storing the mumber of row on wnaich 


starts a set of common name rowS amour 
corresponding on which ends the set. 


NRANK : Array storing the numbers of colLummsSuieee 
assign the ranking of data 

MRANK ; Array storing the names of colUMmSiygem 
assign the ranking of data 

NNU : The number of columns used for ranking. 

KMN : The number of column names used for ranking 

SUP1,SUP2 : Arrays storing the number Of YOwW Gi 
Starts suppression of rows and the 
corresponding on which ends the suppression 

SN ; The number of assigned suppressions. 

NOROW : Array the numbers of rows used as guides 
for the ranking "Of St iemmen.ae 

NBROW : The number of rfow RuMmsers used for row 
ranking 


KERR KK KKK KKK KEK KKK KEK KKK KKK KKK KKK KK KKK KK KEK KKK KKK AX eee 


ANON ONOOANNOAANNONANNNN YO OO year eae 


IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 FLAG1(6) ,NCO(128) ,FLAG2(4) ,NKEY(128) ,NTRUDZSee 
1 SUP1(128) ,SUP2(128) ,NRO( 128) NG Nee 

2 NTIN(128),NRIN( 2048) ,NOROW( 2048) ,SN,NRANK(128), 
REAL*4 RMIN(128) , RMAX(128) 

CHARACTER*1 IND 

CHARACTER*24 COLMNE(128) ,MNE(128) ,MRANK(128), 

1 ROWMNE1(2048) , ROWMNE2 (128) 


NBYTES=NCOL*4 
IDUM=1 
DO WHILE (IDUM.EQ.1) 
I DUM=0 
WRITE (IMP,100) 
READ. (LEC 200 oii 
IF CINDSEO? 1 a Tae 
CALL COLINF(LEC, IMP, FLAG1 ,NCOL,NRCOW , COMMNE ies 


i} NCO,NCIN,RMIN, RMAX ,NT,NTR,NTIN, NABY, 
2 MNE,NN,NM, NRANK, MRANK ,NNU,KMN) 
IDUM=1 
BLSE IF (IND. 50.) 2-3 2 onan 
" CALL ROWINF( LEC, IMP, FLAG2,NCOL,NROW, ROWMNE1, 
il NR,NRO,NRIN, ROWMNE2,IJ,A,B,SUP1,SUP2, 
2 SN,NOROW , NBROW) 


Oe 


100 


200 
300 


1 DUM=1 


Pest le eee Oe) we) THAN 
Re URN 
Pe Se 
WRITE( IMP, 300) 
I DUM=1 
END IF 
END DO 
bor ue, 7/1 Golumm Information :1'/4x, 
i ROW sn LOrmat lon ey are St 
2 ‘Answer si) 
FORMAT (A24) 


BORMAT(//cree INVALID CHARACTER! !') 


END 
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SUBROUTINE COLINF(LEC,IMP,FLAG1,NCOL,NROW,COLMNE,NC,NCO, 
NCIN, RMIN, RMAX,NT,NTR,NTIN,NKEY,MNE, 
NN ,NM, NRANK, MRANK , NNU, XMN) 


CRRKKKKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK 


Grrrl Oc inen minen ee)) Crl (Cres) Gr ) GO) (0) ) 0) OF CV OOO) 


1 
2 


ARGUMENTS 


Eee 
oie 
FLAGI 
FLAG2 
NCOL 
NROW 
COLMNE 
NC 

NCO 
NCIN 
RMIN,RMAX 
NT 

Pets 


NTIN 
NKEY 


MNE 


NN 


The logical unit number for 


fetrmima |. 


The logical unit number for reading 


Berm lin ae, 


Integer array of 
to indicate the 


several 


WG ice ine One ewe 
from the 


Six elements used as flag 
Swseenece .or NOt Of tne 


informations regarding the columns. 


iiemecenrtesponding Elag fer rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 
The number of assigned column mnemonic names. 


The numbers of 


columns for which names have 


been assigned. 


The 
Arrays 


IiMm@en hero latlVeragarecses Of COLMNE, 
StOr lmemeene 
values between which 


Minimum and Male 1 mln 
beacing Of the Gata 1s 


going to take place. 


The 


number of 


Ge lumns fon Mie tue Mir ac 1h 


iO 


extrema have been assigned. 


The column numbers for which tracing extrem 


have been 
The 


fu 


assigned. 


MivVem@enrelatilive agenresses of RMIN,RMAX. 
Array storing the 


Mminle wee or GCOLUMNS which 


will be used as sorting guides. 


Array 


SOG ing the 


Mamese ot COlUMNS which 


will be used as sorting guides. 


tne Numoer of 


repeated sortings according 


ee luimn= Muloe cs. 


ee 


NM 


NRANK 


MRANK 


NNU 
KMN 


YO) 0F 017 11 Oa ae) 


The number of repeatec SsOritingS G@CCOreauuas 
column mnemonic names. 
Array storing the numbers Of COlUN Eyes 
assign the ranking of data 

rray storing the names of colUmMmS es 
assign the ranking O02 @aea 
The numpbper of columns uSed fOr Frank =ge 
The number of column names used for Yanai 


KKEKK KKK KR KKK KKKK KR KEKE KKK KKK KR KKK KKK KK KKK KKK K KK KK KK ee 


IMPLICIT INTEGER*2 (I- 


N) 
INTEGER*2 FLAG1(6),NTIN( 

NCO(128) ,NCIN( 
REAL*4 RMIN(128),RMAX(1 12 


1 


128) ,NKEY(128) ,NRANK( 1280 
128), ,NTR(128) 
8 ) 


CHARACTSR*<2 IND 
CHARACTER*24 COLMNE(128) ,MNE(128) ,MRANK(128) 


LOUM= 1 

DO WHILE 
I DUM=0 
WRITE ( 
READ 


le 


oc le 


ELSE IF 
(NCOL NE. 0) Sten 
CALL TRSFRM(LEC, IMP,FLAG1,NCOL,NROW, COLMNE,NC, 


eee: 


(TDOM ae we 


IMP,100) 

(LEC sZ0e TN 
(LIND, BOs 2) Tt osN 
WRITE(IMP,500) 

READ( LEC, 600) Nea 
(NC Le el 26). Toa 
NGOE=NGu 


WRITE( IMP, 800) 
LIDS ie ak 


(IND. 2OQ. 32) ) aie Nl 
(NCOL.NE.0) THEN 
CALL COLNAM(LEC,IMP,FLAG1,NCOL, COLMNE , NG) Nigam 


NCIN) 


TIDUM=1 


WRITE( IMP, 400) 
IDUM=1 


IND. EO. 3) en 


NCO,NCIN) 


IDUM=1 


WRITE (IMP, 400) 
-IDUM=1 


IND. 80 43a 


Pea 


IF (NCOL.NE.O) THEN 
CALL EXTREM(LEC, IMP, FLAG: ,NCOL,NROW, RMIN,RMAX, 
NT,NTR,NTIN) 
IDUM=1 
ELSE 
WRITE(IMP,400) 
LDomMean 
END IF 
Fess ie (ND. 2emes ) THEN 
ie. {NGOL NE s0oe ra 3N 
CALL MULSOR( LEC, IMP,NCOL,NROW,FLAG1,NK=EY,MNE, 
NN,NM,COLMNE) 
IDUM=1 
ELSE 
WRITE(IMP,400) 
IDUM=1 
ENDL 
ELSE IF (IND.EQ.'6') THEN 
[TF (NGOLYNE.0) THEN 
CALL RANDOM( LEC, IMP,NCOL,NROW) 
POwM=a 
ELSE 
WRITE(IMP,400) 
IDUM=1 
BNDEOlr 
ELSE IF (IND.EQ.'7') THEN 
IF (NCOL.NE.0O) THEN 
CALL CRANK(LEC, IMP,NCOL,NROW, FLAG] ,NRANK,MRANZ, 
NNU,KMN, COLMNE) 
IDUM=1 
ELSE 
WRITE( IMP, 400) 
PDUM=1 
END IF 
ELSE IF (IND.EQ.'8') THEN 
CALL CDISP (LEC, IMP,FLAG1,NCOL, COLMNE,NC,NCO,NCIN, 
RMIN,RMAX,NT,NTR,NTIN,NKEY,MNE, 
NN,NM, NRANK , MRANK , NNU, KMN) 
IDUM=1 
ELSE IF (IND.EQ.‘'9') THEN 
CALL COLMOD (LEC, IMP, FLAG1,NCOL,NROW,COLMNE,NC, 
NCO,NCIN, RMIN, RMAX,NT,NTR,NTIN,NKEY, 
MNE,NN,NM,NRANK, MRANK, NNU, KMN) 
IDUM=1 
ELSE IF (IND.EQ.'10') THEN 
IF (NCOL.NE.0.AND.NROW.NE.0O) THEN 
CALL SEEDAT(LEC,IMP,NCOL,NROW,1,1) 
hDUM= 1 
ELSE 
WRITE(IMP,700) 
EDUmM= 1 
END IF 


lee 


100 


200 
300 
400 


500 
600 
100 


800 


ELSE IF (IND.20O. “21 waea 
IF (NCOL.NE.0.AND.N20W NS 3 
CALL DISDAT(LEC, IMP NC@le in aee 


IDUM=1 
Seo 
WRITE(IMP,700) 
IDUM=1 
END VIF 
ELSE [FR UlIND S20 ee oe Dae! 
RE oes 
ELSE 
WRITE( IMP, 300) 
IDUM=1 
BN ee 
Eee OO 
FORMAT(///4X, 'SELECTION TABLE FOR COLUMN INFORMATIONS ' / 
i 4X ,' o-oo yA 
2 7X,'Number of columns (mandatory) = 1g 
3 "Mnemonic names [2° / ie 
4 "Transformations :3'/ ae 
5 'Tracing extrema :4° 7 ie 
6 "Multi-sorting ecolumnmeutee— 5 / Te 
7 "Randomization of data [3 Jae 
8 ‘Column ranking 1‘ 7 ie 
2 "Display column Ameeormari ems [3° 7s 
i 'Modification Of ColUumnameenae (9 ie 
2 'Data retrieval -10' 77 
3 'DISPlLay/Or Uh ee Onmed tat ames :ll ee 
4 


Sg k. Ano emer 


FORMAT (A24) 
FORMAT (// 3%) ' INVADITD GHA SACTE a as) 
FORMAT (///4X,'NUMBER OF COLUMNS HAS NOT BEEN', 


i) 


/10K, ' ASSIGNED!» 


FORMAT(//'S',3X, ‘Assign number of ecolumi wee 
PORMET (oy) 
FORMAT (///4X, 'NUMBER OF COLUMNS AND ROWS MUST BE' 


1 /12X, 'ASSIGNED TO DISPLAY THE DATA Fiza 
FORMAT (///4X,'THE ASSIGNED NUMBER OF COLUMNS EXEEDS'/ 

1 re THE MAXIMUM PERMITTED 128') 

RETURN 

END 
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SUBROUTINE ROWINF(LEC, IMP, FLAG2,NCOL, NROW, ROWMNE Des 


i 
2 


NROW,NRIN, ROWMNE2,IJ,A,8,SUP!,SUP2, 
SN, NOROW , NBROW) 


CERKKKKKKKKKKKKKK KK KKK KKK KKK KK KKK KKK KKK KKK AK KKK KKK KKK KKK KKK KKK 


C2 GeO) (4) 


This subroutine is used for assignment of the several 


row IntOemactvonms 
ARGUMENTS 


— 


dt 3 


CHO CYC) ner ray CY Oy CY OM Gre) Oe a OOO) Om) 


ee tometer site watmoec. fOr writing on tne 
terminal. 

IMP meme mvogned! Whit number for reading from che 
er Mn Mais 

FLAG2 Bene eOm=ecoome tig st lagetor rows. 

NCOL : The number of columns. 

NROW : The number of rows. 

ROWMNE 1 : Array storing the row mnemonic names. 

NR : The number of assigned row mnemonic names. 

NRO : The numbers of rows for which names have 
been assigned. 

NRIN ; The invert relative addresses of ROWMNE. 

ROWMNE 2 : Array storing the mnemonics of sets of rows 

IJ : The number of assigned tracing extrema sets. 

A,B ec odys sue enaGaetNe mmumoecr Of row On which 
Starts a set of common name rows and ine 


corresponding on which ends the set. 
SUlbweSUPZe ATC eySuscOling the mumber of row On wnicn 


Starts suppression of rows and the 
corresponding on which ends the suporession. 

SN : The number of assigned suppressions. 

NOROW : Array the numbers of rows used as guides for 
the ranking of the rows. 

NBROW : The number of row numbers used for row 
ars vel < kia Ke 


MPC EXOc cam mm ec rk KK KR KKK RAKE KEKE KEK KR KEKE KEKKKEKEKE KKK KKK KX 


IMPLICIT INTEGER*2 (I-N) 


INTEGER*2 SN,FLAG1(6),FLAG2(4),NKEY(128) ,NRANK(128), 
il Boe ene aoc SUP2(128),NRO(128), 
2 NRIN( 2048) ,NOROW(2048),aA(12 8), IJCOMP(128) 


REAL*4 RMIN(128) ,RMAX(128) 

CHARACTER*2 IND 

CHARACTER*7 MODROW 

CHARACTER*24 FNAME, COLMNE(128),MNE(128) ,MRANK(128), 
Hl ROWMNE1 (2048) , ROWMNE2 (128) 

DIMENSION NOCOL(256) 

DATA MODROW/' rows'!/ 


IDUM=1 
DO WHILE (IDUM.EQ.1) 
IDUM=0 
WRITE(IMP,100) 
PHAD CLEC. 200) “IND 
CIN nO. i) THEN 
WRITE(IMP,500) 
READ(LEC,600) NROW 
IDUM=1 
Hoos te END, BO? | THEN 


114 


IF (NRG Ne. one 

CALL ROWNAM(LEC, IMP, FLAG2,NRCOW, ROWMNE1,NR,NRO, 
1 NRIN, ROWMNE 2 ee Ss) 

IDUM=1 

ELSE 
WRITE(IMP,400) 
IDUM=1 

END IF 

ELSE IFo( fND len 3 tae 

IF (NROW.NE.0O) THEN 

CALL ROWSUP(LEC, IMP, FLAG2,NCOL,NROW,SUP1,SUP2, 


1 SN,ROWMNEZ2,A, 3) 
IDUM=1 
ELSE 
WRITE(IMP,400) 
IDUM=1 
END IF 


ELSE IF (IND {207 4° Sian 
CALL REJECT(LEC, IMP,NROW, LJCOMP, 1) 1) ee 
IDUM=1 
ELSE IF (INDVEO. 5 7 tan 
CALL ANADIS(LEC,IMP,NROW, NROW, NOROW,NBROW, MODROW) 
GALE REORD(LEC, IMP, NCOL, NROW, FLAG2, NOROW, NBROW) 
IDUM=1 
ELSE IF (IND: BO. "6" ) aan 
CALL RDISP (LEC, IMP, FLAG2,NROW, ROWMNEL,NR,NRO, 
i NRIN, ROWMNE2,IJ,A,B,SUP1,SUP2,SN, 
2 NOROW , NBROW) 
[DUM=2 
ELSE IF GENDSEO. 7 oe Daa 
CALL ROWMOD(LEC, IMP, FLAG2,NCOL,NROW, ROWMNE1,NR,NRO, 
1 NRIN, ROWMNE2. ie A,B,SUP1,SUP2,SN,NCROWs 
2 NBROW) 
IDUM=1 
ELSE ITF (IND. BOs 6 Jonas 
IF (NCOL.NE.O.AND.NROW.NE.0O) THEN 
CALL SEEDAT(LEC, IMB INCOL, NROW eee 
I DUM= 1 
ELSE 
WRITE(IMP,700) 
I DUM=0 
END IF 
ELSE IF (IND.EQ.'3') THEN 
IF (NCOL.NE.O.AND.NROW.NE.0O) THEN 
CALL DISDAT(LEC, IMP ,NGOL NRO wee 
I DUM=1 
ELSE 
WRITE(IMP,700) 
I DUM=0 
‘ END IF 
ELSE IF (INDJ2On "3 aaa 


Li 


100 


200 
300 
400 
500 
600 
700 


Role 


ELSE 
WRITE( 
[DUM=1 

END IF 

END DO 

FORMAT ( // 


Mr WO OND WD 


FORMAT (A24) 
FORMAT(///4X 
FORMAT (///4X 
FORMAT(//'S' 
FORMAT (13) 
FORMAT (///4X 
i /4X 
RETURN 

END 


IMP, 300) 


Lee oe ON TASbe) FOR ROW LNEORMAT IONS (7 


4X, '------------------------------------ '/ 

7X, ‘Number of rows (mandatory) ley ae a 
'Mnemonic names eee ene 
sROW eS WeODLres S27 On a we, 
‘Row rejection oe oe 
'Row ranking Sry aks 
'Display row informations Gee 7 A, 
Asada] icat 1lOnmome sow Into a A, 
'Data retrieval eo 7 he 
BPrSolay/ Sr ii gemaaata file a 


Sey ike Swen tT) 


,' INVALID @@HARACTER! !*) 
,'NUMBER OF ROWS HAS NOT BEEN ASSIGNED!!') 
Pees Asciagn Mumben of rows 7) 


,'NUMBER OF COLUMNS AND ROWS MUST BE’ 
, ASSIGNED TO DISPLAY THE DATA FILE!!') 


CRRKKKKKKKKKKKKEK KKK KKRKKKE KKK KEK KKK KKKKKKKRKKEKK KKK KKK KK KKK KKK KKK 


SUeROUrTINE Cc 


OLNAM( LEC, IMP, FLAG1,NCOL,COLMNE,NC,NCO,NCIN; 


CRKKKKKRKKKKKKKKEKKKEKRKK KKK KK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KR KKK 


One Cerne eyo) ©) CY CMG Cre) CO ere 


es Sule tr ol 
columns 
ARGUMENTS 


EEC 
IMP 
FLAGI 
COLMNE 


NC 
NCO 


NCIN 


tine is used for assignment of names to 


Micwogueatwininemumaer Lor writing on the 
terminal. 

Lim lodlecdimeUnlramumMpaer fOr readwmg from che 
terminal. 

Integer array of six elements used as flag 
tO indicate the existence or not of the 
several informations regarding the columns. 
Array storing the column mnemonic names. 

The number of assigned column mnemonic Names. 
The numbers of columns’) for which names have 
been assigned. 

The invert relative addresses of COLMNE. 


Zener Ar rr A AK KAR KK RK AK KKK KKK KKK KK KK KR KKK KKK KKK KKK KKK KKK KEKE 


Wee, 


IMPLICIT INTEGER*2 (1 
INTEGER*2 LEC, IMP,NCO 6),NCO(128)  NCIN(i Zee 
CHARACTER*24 COLMNE ( 3 
FLAG1L(1)=1 
all 
NE=1 
DO WH] DE emilienN aoe) 
WRITE(IMP,100) 
READ( LEG 22 Ue 
IF (1. LE INGO ahaa, 
IF (1.20.0) THEN 
NC=NC-1 
CALL BXSHIRNG@ORNGIN NG. 
RETURN 
ELSE 
NCO CNG a 
WRITE( IMP, 300) 
READ(LEC,400) NAME 
COLMNE (NC) =NAME 


BND LE 
EGS 
WRITE(IMP,500) 
END IF 
NC=NC+1 
END ee 
ae FORMAT(/'S',3X,'Assign column number(<CR> to RETURN 
200 FORMAT(I5) 
200 FORMAT('S',3X,'Assign mnemonic : 
400 FORMAT (A24) 
500 FORMAT (//4X,'THE ASSIGNED COLUMN NUMBER EXEEDS ', 
il /7X%,'THE NUMBER OF COLUMNS! !') 
RETURN 
END 


CRKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KE KK KKK KKK KK KE KK 


SUBROUTINE TRSFRM(LEC, IMP,FLAG1,NCOL,NROW, COLMNE,NC,NCO, 
1 NCIN) 


CRKKKKKKKK KKK KKK RK KKK KKK KKK KR KK KAR KK KKK KKK KKK KK KKK KK KKK KK KKK KK 


e 

e ARGUMENTS 

Cc = = eee 

C 

C LEC : The logical unit number for writing oie 
e terminal. 

G IMP : The logical unit number for reading frome 
Ec terminal. 

G FLAG] > Integer array of six elements used as flag 
ec to indicate the- existence or not Ot tne 
C several informations regarding the columns. 
G NCOL ; The number ofece luna. 


ee 


mW 


Cc NROW mene WuUmoer OL rows. 
c COLMNE Sear rayestorving he GoOlumn mnemonic names. 
€ NC > The number of assigned column mnemonic name 
ic NCO Tomine couetmcolumns ©Or which names hav 
eS been assigned. 
e NCIN The weavers relative addresses oft COLMN= 
ee ty xx thx keaR ER RHA RHR Oe 
IMPLICIT INTEGER*2 (I-N) 
ENMHGER <2 eh LAGiegs) .NGO( 128) ,NCIN(128) 
CHARACTER*24 COLMNE(128),TRANS 
PEAGi(i y=] 
WRITE(IMP,100) 
INDEX=NC 
PRANS=" A’ 
DONWH ILE TRANS.NE.' ‘) 
READ(LEC,200) TRANS 
ie  COTRANS. Nea. 2 )) THEN 
NC=NC+1 
NEO(NG)=NCOL+1 
COLMNE (NC) =TRANS 
NeOu=NGou+ | 
END IF 
END DO 
CALL EXSH1(NCO,NCIN,NC,1) 
CALL CONV(NCOL,NROW,COLMNE,NC, INDEX) 
100 PORMAT(///6X, 'AVAILABLE FUNCTIONS' /6X, 
1 | ------------------- ee 
2 Pe OG a ee oe ASIN) / 2X, 
3 ie OG) Ca oe Om nGOS( xX) '/2x, 
4 oe eel axe TI ATAN(T XK] '/2X, 
5 Tae | 460 axe 2. -SINH( X1'/2x, 
6 Boe oe) ex, '13y-COsHl x !*/2x, 
7 '6.-COS{X] ',4X, '14.-TANH[X]'/2x, 
8 eee ke axe 15 SORT X1'/ 2x, 
9 '8,-ASINH[X]'//2xX, 
1 ‘Assign transformations :'/) 
200 FORMAT (A24) 
RETURN 
END 


CRRKKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KR KKK KKK KKK KK KK KKK KK KK KK 


SUBROUTINE EXTREM(LEC, IMP,FLAG1L,NCOL,NROW, RMIN, RMAX,NT, 
1 NTR,NTIN) 


CRRK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KR KR KK KR KR KK 


c 

C This subroutine is used for assignment of tracing 
o- extrema 
c 
= 


ARGUMENTS 


ive 


AQOMNAOODDNO AOA A Ge ereraere 


ae >: The logical unit number for wrizting ]@neee 
terminal. 

IMP : The logical unit number for reading i=G@mmeeee 
cermina ls 

FLAGI > Integer array of six elements usec aSuaeem 


to indicate the ex Ss eemecumem 


not Of ae 


several informations regarding tne col@nmes 


NEG = Fhe number of connie 

RMIN,RMAX +: Arrays Storing \.<ne nia en 
values between which crac in¢ es 
Going Go wake placer 


and maximum 
the daétauaam 


NT : The number of columMnAS “fOr yi tracing 
extrema nave been assigned. 
NTR : The column numbers for which tracing extreme 


have Deen assigned. 


NTIN * The invert relative addresseamen 


IMPLICIT INTEGER*2 (I-N) 


RM IN | Aol 


KKK KKKK KEKE KKK KKK KEKE KRK KKK KERR KEKE KK KKK KEK KKK KK KKK KK KKK XK Kee 


INTEGER*2 LEC, IMP,NCOL, FLAG1(6) ,NTR(128),NTIN(122) 
REAL*4 RMIN(128),RMAX(128) ,FMIN(128) , FMAX(128) 


CHARACTER eh 


FLAGI(2)=1 
CALL FINDMM(LEC, IMP,NCOL,NROW, FMIN, FMAX) 
IDUM=1 
DO WHILE (IDUM.£=Q.1) 
I DUM=0 
WRITE(IMP,100) 
READel EEG 200) tine 


IF (INDJZOR" 0") then 
RETURN 

ELSE fF CIND. 50. 1° ) Bam 
l= i 
Nea 


DO WHILE (I1I.NE.Q) 
WRITE( IMP, 700) 
READ LEG oul mt 
IF (I.NE.0O) THEN 
NGR(NT =] 
WRITE(IMP,300) FMIN(I 
READ(LEC,400) RMIN(NT 
WRITE(IMP,500) FMAX(I 
READ(LEC,400) RMAX(NT 
NT=NT+1 
END IF 
END DO 
NT=NT-1 
ELSE IF (IND IEO eee 


Iles 


100 


200 
300 
400 
500 
600 
00 
800 


RETURN 
ELSE 
WRITE(IMP,600) 
IDUM=1 
END IF 
END DO 
GAtieaxSHl(NYTR Ntine Nr. 1) 


FORMAT(///4X,'Imposed extrema for tracing _ 
1 ‘Original extrema : 0 

2 ‘ANSWwer a) 

FORMAT (A24) 

Gere ok, Mine PounG) >: ,Fl46, 2x, imposed 
FORMAT(F14.6) 

BOs sess skoeewaAx (round) =" F144 76, 2X, ' imposed 
FORMAT (//3X, . CHARACTER! !') 

FORMAT (//' 7 Meese Che col Unmemumaer(=CR> £9 RETU: 
FORMAT (15) 

RETURN 

END 


GRKKKKKKKKKKKKKKKKEKKKKKKKKKKKEKEKKKKEKRKKEKKEKRERKKKKKKK KKK KKEKKK ER 


SUeReOUT INE MURSGOR (eae IMP NGOL NRCW FLAG], NKEY,MNE,NN, 


1 NM , COLMNE ) 

GRRKKKEKEKKKKEKEKKKKKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKK KKK KKK KX 
imo sUemout iment S = USead ss tOG assignment of sorting 
column guides 

ARGUMENTS 

LEC New SG teatime number “fOr writing on the 
terminal. 

IMP oem Oqgteal Unit Numder for reading from the 
terminal. 

NCOL ; The number of columns. 

NROW : The number of rows. 

FLAGL : Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 

NKEY ; Array Storing the numbers of columns which 
will be used as sorting guides. 

MNE ; Array storing the names of columns which wiil 
be used as sorting guides. 

NN : The number of repeated sortings according 
eoQluUNmMenuUMmbDerSs, 

NM ;: The number of repeated sortings according 
column mnemonic names. 

COLMNE : Array storing the column mnemonic names. 


Gare) Gra) CY Cr 0) CY OO OY OE OO) CY Gr Gr OO! CY Ore) ©) 


20 


Pinna KK kK keke KKK AK eK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK 


100 


200 
400 
5900 
600 
700 


800 


IMPLICIT TNa@eGeR 2. oe 
INTEGER*2 FLAG1(6) ,NKEY(i28) 
CHARACTER*1 IND 

CHARACTER*7 MODCOL 

CHARACTER*24 MNe( 128) | CCLMNE (ieee 
DATA MODCOL/ Gotunns 


IDUM=1 
DO WHILE (IDUM. 2072) 
IDUM=0 
WRITE(IMP,100) 
READ( LEG =2 Gd) aun iD 
IF (INDJEQ. 2a eee) 
IF (FLAG1(4).=0.0) THEN 
FLAG aa 
CALL ANADIS(LEC, IMP,NCOL,NCOL,NKEY ,NN , MOD@@am 
CALL REARL(LEC, IMP,NCOL,NROW,NKEY,NN) 
ELSE 
WRITE ( [Mes 7 00) 
RETURN 
END IF 
ELSES 0F 4( INDeEO™ 2 See) 
IF (FLAG1(1).EQ.1) THEN 
IF (PLAGI C3) EO. 0) teen 
FLAG1(4)=1 
WRITE( IMP, 400) 
CALL ASBYMN( LEC, IMP,NCOL,COLMNE,NM,MNE) 
CALL REAR2 (LEC, IMP,NCOL,NROW, COLMNE= ,MNE,NM) 


Best 
WRITE( IMP, 800) 
RETURN 
END? IF 
EESe 
WRITE(IMP,500) 
END) Tae 
ELS 
WRITE( IMP, 600) 
IDUM=1 
EN 
END DO 
RETURN 
FORMAT (///4X%, By €olininee emo e aaelen 
1 'By mnemonic name :2' 
2 /; S$ U3 ens we. ae) 
FORMAT (A24) 


( 
FORMAT(///4X,' Assign column mnemonic names :') 
FORMAT(//4X,'NO MNEMONIC NAMES HAVE BEEN ASSINGED! !') 
FORMAT (//4%,' INVALID Ghee aGren ae 

FORMAT(//4X, 'MULTI-SORTING GUIDES HAVE ALREADY BEEN@? 
1 9X ' ASSIGNED BY MNEMONIC NAMzS' ) 

FORMAT (//4X, 'MULTI-SORTING GUIDES HAVE ALREADY BEEN 7 


2 


fb eee oS Geo) Se COLUMNENUMBERS' ) 


END 


Meee NR A Ae A AK AAR RRR RARER AREA RK RAARKRER KAR KR KRKR EK 


SUBROUTINE CRANK(LEC, IMP,NCOL,NROW, LAG] ,NRANK,MRANX, 


ik NNU , KMN, COLMNE) 


Mx em AK KARA KK KERR KKK KKK RKKKRKAAKRERAKRKKERKAEKKAKK Ra KK KKK ARK KKK 


Creer Cy Oy CO) OV Crer Or GOO) CV Cr ey Gi) Or Gir aieanel 


This subroutine 1s used to assign column ranking by 


Calum Number Greece UnmnN MAemonic names. 


ARGUMENTS 

LEC mee mlogrecteunit Numberwgeror writing on the 
terminal. 

IMP : The logical unit number for reading from the 
terminal. 

NCOL > The number of columns. 

NROW ; The number of rows. 

FLAG1 >: Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 

NRANK oeravesteocing Ene numbers of columns that 
assign the ranking of data 

MRANK > Array storing the names of columns that 
assign the ranking of data 

NNU ; The number of columns used for ranking. 

KMN : The number of column names used for ranking. 

COLMNE : Array storing the column mnemonic names. 


IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 LEC, IMP,NCOL,NNU,KMN,FLAG1(6),NRANK(128) 
CHARACTER*1 IND 

CHARACTER*7 MODCOL 

CHARACTER*24 MNE(128) ,COLMNE(128) ,MRANK(128) 

Dame MONGOL, columns / 


IDUM=1 
POe bie LDUM. BO. | ) 
IDUM=0 
WRITE( IMP,100) 
READ(LEC,400) IND 
Petes, f)) THEN 
IF (FLAG1(6).EQ.0) THEN 
BAG Ca) = 
CALL ANADIS(LEC, IMP,NCOL*2,NCOL,NRANK,NNU, 
it MODCOL) 
CALL RANK1 (LEC, IMP,NCOL,NROW, NRANK,NNU) 


he 2 


Sacer K Xee kK RK RK AKA KAKA KK E RE KRAK KEKE KK KKK RK KKK KKK KKK KEK 


BLSe 


WRiv eve oe 


RETURN 
END IF 
ELSE IF (INDREO.’ 2°) tay 
IF (FPLAGI( Ss). 2070) abe 
IF (FLAG1 (1) SOe) tHe 


FLAG1(6)=1 

WRITE( IMP, 300) 

CALL ASBYMN(LEC, IMP,NCOL,COLMNE , AMN | Mae 
CALL RANK2(LEC,IMP,NCOL,NROW,MRANKX ,XMN, 


il COLMNE) 
ELSE 
WRITE(IMP,500) 
RETURN 
END IF 
ELSE 
WRITE( IMP, 800) 
ENDooES 
ELSE 
WRITE( IMP,600) 
I DUM=1 
END IF 
END De 
100 FORMAT(///4X,'By column mumber :1'/4X, 
1 ‘By Mnemonic Mamesm2 7 
2 Se es eG s') 
300 FORMAT (///3X,'ASSign ranking by sequence of names :') 
400 FORMAT (A24) 
500 FORMAT(///4X,'NO MNEMONIC NAMES HAVE BEEN ASSINGED!!') 
600 PORMAT( ///4%. INVALID. GHARse lo ts. 
700 FORMAT(///4X, 'RANKING HAS ALREADY BE ASSIGNED'/6X, 
1 ' BY COLUMN MNEMONIC NAMES!!') 
800 FORMAT(///4X, 'RANKING HAS ALREADY BE ASSIGNED'/6X, 
i ' BY COLUMN NUMBERS!!') 
RETURN 
END 


CER RKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK 


SUBROUTINE ASBYMN (LEC, IMP,NCOL,COLMNE,N,AR) 


CRKKRKKRKKKKEKKKKKKKEKKKKKKKEKKK KKK KERR RK KKK KKK KKK KK KK KKK KKK KK KK KKK 


G 

ic ARGUMENTS 

C a 

ce 

C LEC ; The logical unit number for writing Olu 
. terminal. 

Gc IMP >: The logical unit number for reading trGiis 
& terminal. 

& NCOL : The number gegeee linn se 

G COLMNE : Array storing the column mnemonic names. 


123 


e 
c 
c 
C 


100 
200 


300 


N : The number of tne assigned mnemon! taneec ). 


ies 
AR * Array Storing che assigned mnemonics. 


kee Ke KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK RRR RE KK KEK KE 


IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 NCOLN 

CHARACTER*24 COLMNE(128),AR(128) ,NAME 
fOGl GAL! TEST 


N=0 
NAME='A' 
DO WHILE (NAME.NE.' ') 
PDuUM=1 
DO WHILE(IDUM.EQ.1) 
IDUM=0 
READ(LEC,100) NAME 
CALL TESTER(NCOL,NAME,COLMNE, TEST) 
iE woe NCOL) THEN 
Vee 7EST.EO..TRUE.) THEN 
N=N+] 
AR(N) =NAME 
PSone PEST .2O,,FALSE. ANDONAMEONE.' '‘) THEN 
WRITE( IMP, 200) 
I DUM=1 
END IF 
ELSE 
WRITE( IMP, 300) 
RETURN 
END IF 
END DO 
END DO 
FORMAT(A24) 
FORMAT(///4X,'THE ASSIGNED MNEMONIC HAS NOT BEEN'/6O<X, 


] ' ASSIGNED AS COLUMN MNEMONIC!!'//4X, 

2 'Assign next mnemonic’) 

FORMAT(///4X,'THE ASSIGNED NUMBER OF MNEMONICS IS ' 

il /4X, 'GREATER THAN THE NUMBER OF COLUMNS!!'/4X, 
2 'THE LAST ONE IS OMMITED') 

RETURN 

END 


CER KKKKKKKK KKK KK RK KKK KKK KK RR KK RK KR RR KKK KR RK KKK RR KK RR RR KKK KK KKK 


SUBROUTINE ROWNAM(LEC, IMP, FLAG2,NROW, ROWMNEL]L,NR,NRO, 
i NRIN, ROWMNE2,1IJ,A,B) 


CRRKKKKKK KKK KK KKK KKK KKK RRR KKK KR KKK KKK RRR RK KK KKK RR KK KK KK KK KK 


Ore Or Cr aa 


This subroutine is used for assignment of row mnemonics 


ARGUMENTS 


124 


FLAG2 
NROW 
ROWMNE 1 
NR 

NRO 


NRIN 
ROWMNE 2 
i 

A,B 


AMA AANAADANY ©) Oy GiGe Geren s 


The logicaéi unlt Mmumber tor writing Gia 

Cenmega lb. 

The logical unic number for reading ‘i>Gmees 

terminal. 

; The corresponding fla@ eter meee 

The Number Of Forse 
Array storing the row mMmhene@n ema gees 
The number of assigned row mnemonic (anees 
The numbers of rows for which names nave 
been assigned. 
The invert relative addresses Of ROWMNE. 
Array storing the mnemonics of sets Gi aromas 
The number of assigned tracing extrema sets. 
Arrays storing the mumber of row On) whe 
starts a set of common name rows and the 
corresponding on wnich emd@s the tsar 


oa 


KKEKKKKK KK KKK KEKE KKK KKK KEKE KKK KEK EK KKK KKK KKK RK KKK KKK KKK © eee 


IMPLICIT INTSEGER*2 (I-N) 
INTEGER*2 LEC, IMP,NROW, !J,FLAG2Z(4) ,A(128) > 30a 


i) 


NRO(128),NRIN(2048) 


CHARACTER bie 
CHARACTER*24 ROWMNE1(2048) ,ROWMNE2 (128) ,NAME 


IDUM= 1 


DO WHILE 
IDUM=0 


(IDUM.EQ.1) 


WRITE(IMP,400) 

REA G2 00) ee Nae) 

[Ee (IND. EO. 2) toa 
PRAG? Gli 


ica 


NR=] 
DO WHILE(I.NE.Q) 


WRITE(IMP,510) 

READ( LEG) Woe as 

LF Ct , EO, G wtHen 
NR=NR-1 
CALL EXSH1(NRO,NRIN,NR,1) 
RETURN 

ELSE 
NROCNR) =2 
WRITE( IMP,500) 
READ(LEC, 200) NAME 
ROWMNE1 (NR) =NAME 

END IF 

NR=NR+1 


END DO 

ELSE ITF -(IND.EO.92:) @aan 
FPLAGZ (29-2 
tos 


lS 


100 
200 
400 


S010) 
Sele 


Th 
DO WHILE(I.NE.0Q) 
oie 
DO WHILE(IDUM.EQ.:) 
I DUM=0 
Wher IMes 600) iJ 
READ bHe, 100) I 
IF (I.NE.0) THEN 
IF (I.LE.NROW) THEN 
Rien) =I 
ELSE 
WRITE( IMP, 800) 
IDUM=1 
END IF 
ELSE 
Pa — 
RETURN 
END IF 
END DO 
DUM= 1 
DO WHILE(JDUM.EQ.1) 
JDUM=0 
WRITE( IMP, 700) 
Reawiueec, 100). 7 
ce) (Gees NROW) THEN 
B(IJ)=J 
WRITE(IMP,900) 
READ(LEC,200) ROWMNE2 (IJ) 
IJeatotl 
ELSE 
WRITE(IMP,800) 
JDUM=1 
END IF 
END DO 
END DO 
IDUM=1 
BlGs TF CEND.&O.’ ')> THEN 
RETURN 
ELS 
WRITE(IMP,1000) 
IDUM=1 
END IF 
END DO 
RETURN 


FORMAT(I5) 
FORMAT (A24) 


FORMAT (///4X,'Row by row coluen/ oe 

i Dae Set Cimmows 02) /'S 3x, 
2 'Answer >|) 
RORMAT( SS’) 3k, ASSIGN mnemonic 


— -_ 


PORMAmi os 73k Assign sow number(<CR> to RETURN) 


ei 


600 


10 
800 


900 
1000 


FORMAT(///1k, 'Common name Set). so 
] ORO w <e) 
t 


PORMAT (" S] lome> ha 
FORMAT (///3X%,'THE ASSIGNED ROW NUMBER ESKEEDS THE NUMBERS 
1 ' OF ROWS! !') 


rORMAT('S',3X,'Name age 
FORMAT(///5K,' INVALID CHAR2 Gio eae 
SND 


CRRKKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK RRR KKK KKK KK KK KKK KKK KKK KK ER 


SUBROUTINE ROWSUP(LEC,IMP,FLAG2,NCOL,NROW,SUP1,SUP2,SN) 
i ROWMNE?2,A,B) 


CREEK KKKRKKKKKKKKK KK KKK KKK KK KKK KKK KKK KERR KKK KERR KKK KKK KKK KEK KKK 


Cr) OC GOO © aie) 


Row suppression 


ARGUMENTS 

LEG : The logical unit number for writing “GRueeee 

terminal. 

IMP : The logical unit number for reading from he 

terminal. 

FLAG2 ; The Corresponding Malag tor sour 

NCOL : The number of ecoelumms., 

NROW : THe NUMDer ot “cews- 

SUP1,SUP2 : Arrays storing the number of row Onvaem 
Starts suppression of rows and poe 
corresponding on which ends the suppression, 

SN ; The number of assigned suopressions. 

ROWMNE2 : Array storing the mnemonics of sets of rows. 

AaB ; Arrays storing the mumber of row On whgag@ 


starts a set of common name rowS amouueee 
corresponding on which ends the set. 


Kee KK KKK KKK KKK KKK KKK KKK KEKE KKK KEKE KEK KKK KEK KKK KK KK KK KR KK eee 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 SN, FLAG2(4),SUP1(128) ,SUP2(128) ,A(128) ,8(128) 
CHARACTER*1 IND 
CHARACTER*24 NAME, ROWMNE2 (128) 
DigAG ees) — 
WRITE(IMP,50) 
READ(LEC,60) IND 
IF (IND.EQ.'1*) THEN 
CALL SUP(LEC, IMP,NCOL,NROW,SUP1,SUP23ane 
ELSE IF (IND.EQ.'2') THEN 
IF (FLAG2ZG2) 2eO) lo He 


SN=1 
NAME='A' 
DO WHILE(NAME.NE.' ') 


WRITE(IMP,70) SN 
READ(LEC,80) NAME 


sligehiey 


[=l 
DO WHILE(NAM®.NE.ROWMNE2(1)) 


T=[+l 
END DO 
IF (NAME.NE.' ') THEN 


SUR CSN =e 0) 
SUP2(SN)=B(1) 


Pees 
SN=SN-1 
GAUL SCUPSET (LEC, IMP, NCOLYNROW, SUP!,SUP 
Re URN 
SND eer 
SN=SN+1 
END DO 
BESE 
WRITE(IMP,500) 
RETURN 
BEND LE 
ENDO Le 
FORMAT(///4X,'By mumber of rows :1'/4X, 
iL 'By row set name eo OK, 
2 ‘Answer eae) 
FORMAT(A) 
Bonny //2k. Suppression :'15,/'S',3K,’Set name 
FORMAT (A24) 
100 MOnMAiey 7/45 SUipOreSSion : ,135/7'S',3%,' From row 
200 FORMAT (15) 
300 yrs "RHE eaASsSsITGNED NUMBER [S GREATER THAN THE’ 
1 Nee ; NUMBER OF ROWS') 
400 MORMAT( °S° 53%) To row eos) 
500 FORMAT (///4X, PSETSe@WEITH COMMON MNEMONICS HAVE' / 
1 Lone ' NOT BEEN ASSIGNED! !') 
END 


me) 
Gia) 


/ 


CK KKK KKK KKK KKK KKK RK KKK KKK KR KKK KR KR RRR RK KK KKK KR KR KK KK KR RK KK KK 


SUBROUTINE SUP(LEC, IMP,NCOL,NROW,SUP1,SUP2,SN) 


CRRKKKKR KKK KKK KK KKK RRR KKK KR KKK KKK KR KK RK RR RR KK KK KK KR RK KR KKK KK KKK KX 


C 

c ARGUMENTS 

c Sa ay eas a 

e 

C LEC iim dled amr s MUMber [Or Writing on the 
c terminal. 

c IMP Mergen logical timtt number for reading ‘from che 
e terminal. 

c NCOL : The number of columns. 

C NROW : The number of rows. 

c SUP Ismet eAchays StOrinNg tne mumber or row on which 
e Starts Suppression of rows and the 
c corresponding on which ends the suppression. 
3 SN : The number of assigned suppressions. 

C 


eS 


CXRKKRKKKKKKRKK KKK KRKKAKK KEK KKK KK KK AKA KR XR eee 


IMPLICIT INTEGER*2 (I=N) 

REAL 4" lee 

INTEGER*2 SN,SUP1(128) ,SUP2(128) ,NOROW( 2048), NO( 2am 
CHARACTER* 7 MODROW 

CHARACTER*45 DEVDI&, NAME*10 


DATA MODROW/ ‘rows’ /DEVDIR, NAMB BU 
i} LOGOLD, LOGNEW/2, 37 


G Assign files. 

WRITE(IMP,100) 

NBYTES=NCOL* 4 

CALL FICH ('069',LOGOLD,1,DEVDIR, NAME, NROW, NBY ta Seeee 
1 'DIRECT',LEC, IMP) 

WRITE( IMP, 200) 

NBYTES=NCOL*4 

CALL FICH ('069',LOGNEW,1,DEVDIR,NAME,NROW,NBYTES,O, 


1 ‘DIRECT bane, 1 Mey 
G Input chain of numbers, °, “er = “tovacauwed 
G suppressions,. 


CALL ANADIS(LEC, IMP,NROW, NROW, NOROW, NBROW , MODRCW) 
C Sort NOROW( ) 


CALL EXSH1(NOROW,NO,NBROW,1) 


ie Phase I : Copy non-suppressed Data. 
CS ss a ee a a a a a ee ee ee ee ee 
J=0 
K=1 
DG 1=2NROW 
READ (LOGOLD" Tj y( b) ie ee 
IF (I1.EQ.NOROW(K)) THEN 
K=K+1 
Booe 
J=J+1 
WRITE(LOGNEW'J) (Y¥(L),L=1,NCOL) 
END OU 
END DO 
C Phase II : SUP1, SUP2 and SN generation for Header, 
G a 


SUP1(1)=NOROW(1) 
SN=0 
DO I=1,NBROW 
IF(NOROW(I+1).NE.NOROW(I)+1) THEN 
SN=SN+1 
SUP2(SN )=NOROW(I  ) 


eZ 


100 


zai) 


SUP1(SN+1)=NOROCW(I+1) 


ENG LF 
END DO 


NROW=NROW-NBROW 
CLOSE(LOGOLD) 
CLOSE (LOGNEW) 


ene cr 


HORM > sow aoamome mo. Of the “"*CLD'" direct’, 


i ' 


aGeeoomike ya eed, '—' )) 


BORA 71> ok ASstgm Nowvorsche ~ NEW" direct’, 


IL t 


END 


BeeGeocu eee 6s (oe ee) 


Meee KAKA XK KAKAXKKKAKKRKKKKKKAR KA KKK KKRAREKKRKKKKKEKKKKKKKKKK KR KKK KKK KK 


SUBROUTINE SUPSET(LEC, IMP,NCOL,NROW,SUP1,SUP2,SN) 


Cewek KK KK KKK KKKKK KKK KARA KKK KKK KKK AKK KKK KKK KKK KKK KK KKK KKK KK KK KK 


Crearere rena nena re) C1) Cr OOOO ere 


Used to supress the rows that correspond to the assigned 
set with common name. 


ARGUMENTS 


ae 
Le 
NCOL 


NROW 
SUP 1 SUPZ 


SiN 


TiemogwiGal Unit mumber for writing on the 
terminal. 
The logical unit number for reading from the 
terminal. 


The number of columns. 

The number of rows. 

Pega eot imag one shnUMSen Of row on which 
SLaGES Suppression of rows and the 
corresponding on which ends the suppression. 
The number of assigned suppressions. 


MECEAEXiX meee ea KR RK KR KKK RR KKK KKK KEKE KR KEK KR KKK KKK KKK KKK KKK KK KK KR KKK 


IMPLICIT INTEGER*2 (I-N) 

pemeed X(128)y(128) 

INTEGER*2 SN,SUP1(128) ,SUP2(128) 
CHARACTER*45 DEVDIR,NAME*10 


Dea DEVDIRANAME/  DBUAQ :',.°. 7 
DATA LOGOLD, LOGNEW/2,3/ 


Assign files. 


WRITE(IMP,100) 
NBYTES=NCOL*4 
CALL FICH ('069',LOGOLD,1,DEVDIR,NAME,NROW,NBYTES,1, 


io 


1 ‘DIRECT “Fbae@ scr 

WRITE( IMP, 200) 

NSBYTES=NCOL*4 

CALL FICH ('069' ,LOGNEW,1,DEVDIR, NAMER NRG] 


IL 'DISECT {LEG Peas 
g Supress the row between SUP1() and SUP2(). 
a 
I=] 
L=1 


DO WHILE (1.LE.NROW) 


IF (J.LE.SN) THEN 
IF (SUPI( J ).Neae.) Goan 
READ (LOGOLD'!I) (X(K)9R-)) Neem 
WRITE( LOGNEW LL) (Xt 8) (x=) Neer 
L=L+l 
I=[+l] 
ELSE 


T=I+(SUP2(J)-SUP1(J)+1) 
LP Cj (Le sio® The 
J Siiceal 
END If 
END IF 
ELSE 
READ (LOGOLD 1) (X(K) Gece 
WRITE(LOGNEW'L) (X(K),K=1,NCOL) 
L=L+l 
I=I+l 
END IF 
END DO 
NROW=L-1 
CLOSE(LOGOLD) 
CLOSE ( LOGNEW) 


Re oR 

100 FORMAT(/'S"',3X,'AsSign no. of the ‘OLD 9 diam 
1 ' access file :'/4x,44('-')) 

200 FORMAT(/'S',3X,'Assign no. Of the ''NEW 9 @aieec mam 
1 ' access file :'/4 4344) a 
END 


CER KR KKEKKKKKK KKK KEKE KKKKKKKKKEKKEKKKEKKK KEKE KK KKK KKK KK KK KX X KX Re 


SUBROUTINE WRITER(LOGN, FLAG1,FLAG2,NCCL,NROW, XMN,NNU,NWN, 


ip NM, [1J,A,B,COLMNE,NC,NCO,NCIN, RM ENG 
2 NT,NTR,NTIN,NKEY ,_MNE, NRANR Ge 

3 ROWMNE1, NR,NRO,NRIN, ROWMNE2 , SUP1) SUR 

t SN; NOROW, NBROW) 


Cee Re EE eS ee rr 


c 


ee 


Gear an am@n(o)-elte)Ct tr) ) 0) OC) Cr CY OO ONO) 07 00 07 07 OO) 0) OY Cerrar ee) Oe el ere: Ol © 


TmicsmeStibrOutIne 1S used to ~eite. the imrormat ions 
regarding the header on a sequentiai file. 


ARGUMENTS 


LOGN 


FLAGI : 


FLAG2 : 
NCOL : 
NROW : 
KMN : 
NNU ; 
NN : 


NM : 
a : 
A,B : 


COLMNE 

NC 

NCO 

NCIN : 
RMIN,RMAX : 
NT 


NTR 


NN : 
NAB 


MNE 

NRANK 
MRANK 
ROWMNE 1 

NR : 
NRO : 
NRIN : 


ROWMNE 2 
SUL, SOeZ 


UimrOCmecemiyltwesor the £116 on which tne 
header,s data will be stored. 

Integer array of six elements used as flag 
BQUEG@Omme@cte™ Che ExX1Stemce Or not or he 
several informations regarding the columns. 
iresconresponding tlag for rows. 

The number of columns. 

The number of rows. 

The number of column names used ‘for ranking. 
The number of columns used for ranking. 

The number of repeated SOrtmegs according 
column numbers. 

The number of repeated sortings according 
column mnemonic names. 

The number of assigned tracing extrema sets. 
Arrays Storing thes mumber of row on which 
Starts a set of common name rows) and the 
corresponding on which ends the set. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names. 
The numbers of columns for which names’ have 
been assigned. 

The invert relative addresses of COLMNE. 
Arrays storing the minimum = and maximum 
values between which tracing of the data is 
going to take place. 

Liem eNO ot mee UMTS =lor ewhicn mpgiien gre 
extrema have been assigned. 

The column numbers for which tracing extrema 
have been assigned. | 

The invert relative addresses of RMIN,RMAX. 
aay eStOLIngm Ene Mummers Of Columns which 
will be used as sorting guides. 

Array storing the names of columns which 
wlll be used as sorting guides 

Saieavyeeeeoring "tmeanumbers ~of columns that 
assign the ranking of data 

Array storing the names of columns that 
ass ugmeet ne “sanking of data. 

Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
Array storing the mnemonics of sets of rows. 
PaagdvecmotonImgG the mMumder of row on which 


2 


MO O01 1 OO Grae 


Starts suppression of rows and ¢ ie 
corresponding on which ences ne suppress 

SN : The number of assigned SUperese memes 

NOROW > Array tne numbers of rows uSec 4S dUuidG@eaueam 
tne ranking of the sows, 

NBROW : The number of row numbers used t0r som 
ranking. 


KAR KKK KKK KKK RK KKK KKK KKK KK KKK KK KEK KE KR KK AK Xe 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 SN. FLAG1(6),= LAGZ (4 


(128) ,B(128) ,NK=EY eee 
iL NRANK (128), SUP1(128), SUP2(128 ) , N@@@izam 
2 NC ING 12303120 ( 128) ,NTR(128) ,NTIN (12603 
3 NRIN( 2048) , NOROW( 2048) 
CHARACTER*24 COLMNE(128) ,MNE( 12609 MRea 12 
l ROWMNE1 (2048) , ROWMNE2 (128) 


REAL*4 RMIN(128),RMAX(128) 


WRITE(LOGN,200) NCOL,NROW,NC,NR,IJ,NT,KMN,NNU,NN,NM,S5N, 

it NBROW 

WRITE(LOGN 7 100 3 See 6G Gi) ieee 

LF (PLAGE eee ea 
WRITE(LOGN, 300) 
WRITE(LOGN, 100) (NCO 
WRITE(LOGN,100) 

END IF 

IF (FLAG C2) ser) 
WRITE(LOGN, +00) 
WRITE(LOGN, 400) 
WRITE(LOGN, 100) 
WRETE (BOGN lao) 

END IF 

WRITE(LOGN,100) (FLAG2(1I),I=1,2) 

LPO PRAGA GeO) een 
WRITE(LOGN,300) (ROWMNEI 
WRITE(LOGN,100) (NRO(CI 
WRITE(LOGN,100) (NRIN( 

END IF 

IF (FLAG2(2).EQ.1) THEN 
WRITE(LOGN,300) (ROWMNE 
WRITE(LOGN 210077 3 Green 
WRITE (LOGN] LOO) “Cehae wel 

END IF 

IF (PLAG)( 203 EO. Sire 
WRITE(LOGN,100) (NKEY(I),I=1,NN) 

END IF 

IF (FLAG1(4).EQ.1) THEN 
WRITE(LOGN, 300) (MNE(I),I=1,NM) 

SNe eG! 7 

IF (FLAG1(5).&Q.1) THEN 
WRITE(LOGN,100) (NRANK(I),I=1,NNU) 


L323 


aND 


oe vet 
ee 


Petr EaAGi(6).HO.1) THEN 
Nee wee@Gn, G00) (MRANK( 1), 1=a8 XMN) 
END IF 
Petes AG 2 ss, On) )y THEN 
Mie hOeGny lag SUP. (1) ,i=1,SN) 
re LOGN, VCO). (SUP2(1),1=1,SN) 
END IF 
heir DAG? 4} aeO. ) mer HEN 
WRITE(LOGN,100) (NOROW(I1I),I=1,NBROW) 
END IF 
100 FORMAT(I5) 
200 FORMAT(1215) 
300 FORMAT(X,A24) 
400 FORMAT(F14.6) 
RETURN 
END 


eer RR AKAKKKEKKAKRKKKKKARXKKAKAKKKKKKKKKKKKKKKKKKKK KKK KKKKKKKKK KK KK 


SUBROUTINE READER(LOGN, FLAG1, FLAG2,NCOL,NROW,KMN,NNU,NN, 


I 
2 
5 
- 


Nitec ope eOLMNE NC, NCO,NCIN, RMIN, RMAX, 
ioe se NN Niger MNE | NRANK > MRANK, 
ROWMNE],NR,NRO,NRIN, ROWMNE2,SUP1,SUP2Z, 
SN,NOROW , NBROW ) 


CxeRKK KK KK KKK KKK K KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK RRR KKK EK 


cc 

C This subroutine 1s used to record the informations 
8 regarding the header on a sequential file. 

C 

j ARGUMENTS 

© ee ee ene et oes easy oa 

a 

< LOGN UMicierediecdioetnttmmtmn the file on which the 
C header,s data will be stored. 

c FLAGL Integer array of six elements used as flag 
e POmMINGtecre  Eme “existence or not of the 
c several informations regarding the columns. 
C FLAG2 se ihe Gorresoonding flag tor rows. | 

c NCOL iae number of columns. 

C NROW The number of rows. 

S KMN The number of column names used for ranking. 
S NNU The number of columns used for ranking. 

c NN The number of repeated SOmeunes according 
C column numbers. 

© NM The number of repeated sortings according 
C column mnemonic names. 

ie re The number of assigned tracing extrema sets. 
c A,B Lega oO iim mMumoer @f row on which 
C Stabes a Sem Fol common name rows and the 
S corresponding on which ends the set. 

Ss COLMNE Array storing the column mnemonic names. 

c NC The number of assigned column mnemonic names. 
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Nee 

NCIN 
RMIN, RMAXA 
NT 

NTR 


Nae 
NKEY 


MNE 
NRANK 
MRANKA 
ROWMNE 1 
NR 

NRO 
NRIN 


ROWMNE 2 
SURE SsUeZ 


SN 
NOROW 


NBROW 


AANNDNANNNAANNANANNANAANAANANAN ASA aoe eee 


Tne numbers of columns for which names steams 
been assigned. 

The invert relative addresses of COLMNE. 
ArrayS Storing <2he Mim tum maximum 
values between which tracing of the Gapauam 
GOIng tO take olacer 

The number of columns fOr uieaages “racim@ 
extrema have been assigned. 

The column numbers for which tracing Sepa 
have been assigned. 

The invert relative addresses of RMIN,RMAX. 
Array storing the numbers of columns which 
wlll be used as sorting gurdece 

Array  S<eOrijcqmeeen names of columns waves 
will be used as sorting guides 

Array storing the numbers of columns eaag 
assign the ranking of data 

Array Storing the names of coiumns thas 
asSign the ranking ioe sd@acar 

Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names nave 
been assigned. 

The invert relative addresses of ROWMNE., 
Array storing the mnemonics of sets Of TOwas 
Arrays storing the number of row On=yaam 
Starts suppression of rows and oe 
corresponding on which ends the suppress 7am 
The number of assigned suppressions. 

Array the numbers of rows used as guides for 
the ranking of the rows. 

The number of row numbers used [OF ama 
ranking. 


weKKKKKKKKKKKKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK kK KKK KK KK Kee 


IMPLICIT INTEGER*2 (I-N) 


INTEGER*2 SN,FLAG1(6),FLAG2(4) ,A(128 


] 
Z 
5 


(128) ,NKEY( BZege 


),B 
NRANK(128) ,SUP1(128) ,SUP2(128) ,NEOl t2Za08 
NRO( 128) ,NTR(128) ,NCIN( 128) JNTING@iZeo8 
NRIN( 2048) , NOROW( 2048) 


CHARACTER*24 COLMNE(128) ,MNE(128) ,MRANK(128), 


i 


ROWMNE1 (2048) , ROWMNE2(128) 


REAL*4 RMIN(128) ,RMAX( 128) 


READ(LOGN, 200) NCOL,NROW,NC,NR,IJ,NT,KMN,NNU,NN,NM,SN, 


1 


NBROW 


READ(LOGN, 100) CFLAGS i= ae 
IF (FLAGI (1) .80.1)) Dis 


READ(LOGN, 100 


READ(LOGN, 300) (GOLMNE (I )}) B= iene) 
) (NGOGT i — ie 
READ(LOGN,100) (NCIN(I),I=1,NC) 
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100 
ZOO 
300 
400 


Cex KK KKK KKK RK KEK KKK KKK KKK KK KAKA K KKK KKK KKK KAR KKK KKK KKK KKK KKK EK 


(LEC, IMP, FLAG] ,NCOL,COLMNE,NC,NCO,NCIN 


SM Re eked ede E ARR AHA RARER EK RRR ERR ARR RRA AKAKE REESE 


on the screen tn 


e 
G 
C 


END IF 

IF (F 
READ(LOGN, 400) 
PoaAb4 COGN ,400) 
READ(LOGN, 100) 
READ(LOGN,100) 

END IF 

READ(LOGN, 

IF (FLAG2(1) 
RAD LOGN, 300) 
READ(LOGN, 100) 
READ(LOGN, 100) 

END IF 

en OrLAG? 2) 
READ(LOGN, 300) 
REA DGEOGN 00) 
READ(LOGN,100) 

END IF 

ere PG eS) 
READ(LOGN, 100) 

END IF 

IF (FLAG1(4) 
READ(LOGN, 300) 

END IF 

iF) (EE AG ICS) 
READ(LOGN, 100) 

END IF 

Pe eGeLAGl (6) 
READ (LOGN, 300) 

END IF 

TF (FLAG2(3) 
READ(LOGN, 100) 


100) 


eG) 20.1.) 


(FRAGZ (Lys 1 
MeO) 


PEO...) 


VEO ray) 


aoe) 


mee. 1) 


EO) 


THEN 
pe 

RMAX ( 
ee 
(ar 


A at cee a ere 


THEN 
(ROWMNE1 
(NRO(I 
(NRIN( 


THEN 
( ROWMNEZ2 ( 
OT 
(B(I),I=1 


THEN 
(NKEY(I), 


THEN 

(MNE(I),I=1,NM) 
THEN 

(NRANK(I),I=1,NNU) 


THEN 
(MRANK(I), 


.£Q.1) THEN 


CSP (ij, f=1,SN) 


READ(LOGN,100) (SUP2(I),I=1,SN) 
END IF 
emnbAGZ (2). Orel) THEN 


Roe eG 00) 
END IF 
FORMAT(I5) 
FORMAT (1215) 
FORMAT (X,A24) 
FORMAT(F14. 6 ) 
RETURN 
END 


SUPRCULINE /eDise 
i 
2 


MirtsomesSuibromn Line 


(NOROW(I),I=1,NBROW) 


RMIN,RMAX,NT,NTR,NTIN,NKEY,MNE,NN,NM, 
NRANK , MRANK, NNU, KMN) 


ise USseGa ce siaeyso hay 


So rule Orumations Of thre neader: 


Po 


, 


ARGUMENTS: 


mete eee ee 


FLAGI 


NCOL 
COLMNE 

NC 

NCO 

NCIN 
RMIN, RMAX 
NT 

NTR 


NTIN 
Nie 


MNE 
NN 

NM 
NRANK 
MRANK 


NNU 
KMN 


AON OAANDAAANOAONOAAANOANAANANANOO NNN A AE Ae Gee eee ere 


The logicalunit number [ane On time 
terminal. 

The logical unit number for reading tron 
terminal. 

Integer array of six elements used 4s f1L 
to indicate the existence or noc ome 
several informations regarding the columns 
The numper of columns. 

Array storing the column mnemonic names. 
The number of assigned column mnemonic Aames® 
The numbers of columns for which names Rave 
been assigned. 

The invert relative addresses of COLMNEé, 
Arrays storing the minimum and maximum 
values between which tracing of the Gavauae 
going to take place. 

The number of columns "fore ihe crac ime 
extrema have been assigned. 

The column numbers for wnich tracing Gxt 
have been assigned. 

The invert relative addresses of RMIN,2MAX, 
Array storing the numbers of columns Waa 
will be used as sorting quides. 

Array storing the names of columns which 
will be used as sorting guides. 

The number of repeated sortings according 
COLUMNS 1UMBe ase 

The number of repeated sortings according 
column mnemonic names. 

Array storing the numbers of columns tha 
assign the ranking of data 

Array storing the names of columns tnat 
assign the ranking of data. 

Tne number of columns used ton Ganioumas 

The number of column names used for ranxing. 


( 


en 


RKEKEKK KKK KK KKK KKK KKK KEKE KKKKKE KR KKK KKK KK KKK KEK KK RK eee 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 LEC, IMP,LOGN,NCOL,NROW,NN,NM,NNU,KMN,IJ, 


t 
2 


NTR(128),FLAG2(4) ,NKEY(128) ,NRANK( 228) (ee 
B(128) ,NCO(128) ,NCIN(128) ,NTIN( 128) eDAGHaee 


REAL*4 RMIN(128),RMAX(128) 
CHARACTER*1 IND 
CHARACTER*24 FNAME,COLMNE(128) ,MNE(128) ,MRANK(128) 


WRITE(IMP,100) 

WRITE(IMP,200) NCOL 

IF (BLAG1 (1) sEOS)) Sian 
WRITE( IMP, 300) 


Lo 


100 
200 


300 


400 
5010 


DO I=1,NC 
WRITE(IMP,400) NCO(1),COLMNE(NCIN(1)) 
END DO 
END IF 


Heer GDAGI (2) .BO, 1) THEN 
WRITE(IMP,500) 
peo l— lana 
ARE some l ) eMiN(NTIN(1)), RMAX(NTING!) ) 
END DO 
END IF 
pe rc AG L(g eee.) HEN 
WRITE(IMP,700) 
DO 1=1, MN 
WRITE(IMP,800) NKEY(I) 
END DO 
END IF 
IF (FLAG1(4).EQ.1) THEN 
WRITE( IMP, 900) 
pe I=1,NM 
WRITE(IMP,1000) MNE(I) 
END DO 
END IF 
[DP (FLAGI (5) .2O.1) THEN 
WRITE(IMP,1100) 
BO. l=, NNO 
WRITE(IMP,1200) NRANK(I) 
END DO 
END IF 
IF (FLAG1(6).EQ.1) THEN 
WRITE(IMP,1300) 


Doulas hMN 
WRITE(IMP,1400) MRANK(TI) 

END DO 
END IF 
READ(LEC,1500) IND 
Pe (IND.EOQ. ')° THEN 

WRITE( IMP,1600) 

RETURN 
END IF 
FORMAT(20(/),18X,'C O LUMN ier OR Mest 1 ON S' 
Al yal oo (eww Ke KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK! ) 
BORMAT ( /e27X, NUMBER Ge COLUMNS 7 27X- 
Po Fenn ne ---------- '//31X,15) 
FORMAT (//27X, COLUMN MNEMONICS'/27X, 
PO Hh nnn nan = =~ WK, 
Z ‘Column number’ , 3%, “Mnemonic! 23, 
3 '---~--~------------------- >) 


TOgMAm 27 <ee seel x, A24 ) 
FORMAT (//28X, "TRACING BOR eEMas 726K 


Loe Fe eee eee a 
Z Golumnemumeer jo4, Minimum ,9X,'Maximum',/13x, 
3 Pm $ ) 


eos 


600 
700 


8O0 
900 


1000 
Eero 


PAu 
1300 


1400 
Poe 
1600 


FORMAT(16X,13,6X%,512.6,3% 92 eee 
FORMAT(//18X, 'COLUMN NUMBER GUIDES SCR MULTEPL= SOnaaaE 


2 


LOX, -- -  e 2 


FORMAT (33X,13) 


1 


FORMAT (//17X,'COLUMN NAME GUIDES FOR MULTIPLE SORT ie 


FORMAT (41X,A24) 


FORMAT (/22X, 


i 


'COLUMN NUMBERS OR RANI iGie c7 
fe ee ce a a ee a Se ee t ) 


FORMAT (33 7 ee 


FORMAT (/23X, 


al 


‘COLUMN NAMES FOR RENR UNG 7 2a] 


FORMAT (34X,A24) 


FORMAT (A) 


FORMAT (20(/) ) 


END 


CER KKK KEKKE KEK KKK KK KKK KKKKEKKKKKKKKKKEKKKKKEKKKKKKKKKKKKKKKKKKAKXARA 


SUBROUTINE RDISP(LEC, IMP, FLAG2,NROW, ROWMNE1,NR,NRO,NRIN, 


i 


ROWMNE2, IJ,A,B,SUP1,SUP2,SN, NOROW) See 


CRKKKKKKKK KKK KR KEK KKK KEK KEKE KEKE KKK KRKKEKKKEKKKKKK KKK K KKK KK KKK KX KK RRS 


Muar Ou): O-OY OQ (1) Of Oy O07 OY OL OO O10 Orr Oy OO) 


ARGUMENTS 


LOGN 


FLAG] 


FLAG2 
NCOL 
NROW 
COEMNE 
NC 

NCO 


NCIN 
ROWMNE 1 
NR 

NRO 


NRIN 


ROWMNE 2 
RMIN, RMAA 


NT 


The logical unit number for writing GR 
wwe ios .L 

The logical unit number for reading from tne 
terminal. 

The logical unit for the file on which 
header,s data will be stored. 

Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 
The corresponding flag for rows. 

The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names. 
The numbers of columns for which names nave 
been assigned. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for whicn names nave 
been assigned. 

The invert relative addresses of ROWMNE. 
Array storing the mnemonics of sets Of (mga 
Arrays storing the minimum and maximum 
values Detween which tracing of the data is 
going to take place. 

The number of columns eon 


whew traci ima 
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3 extrema have Deen assigned. 

C NTR [Pie wcotumn nimbers “Or wnich tracing extrema 
C have been assigned. 

e NTIN Webnemlnwerte relative acdresses of RMIN,AMAK. 
e Ney [Ged eoeesing the numbers of columns which 
c will be used as sorting guides. 

GC MNE eee Mae oaaGeene Nemes Of columns whicn 
c will be used as sorting guides. 

C NN MineoetumeomEer  fepeat.ed SOrTInNGS according 
ce EOlUNRE @UNDerS. 

C NM > The number of repeated sortings according 
c column mnemonic names. 

e IJ : The number of assigned tracing extrema secs. 
e A,B [eoeGey7sestorimea, the mumber of row on wnicn 
G Sice es a set of common name rowS and tne 
€ corresponding on which ends the set. 

& NRANK Ar Gay MestOLUNGerne NUMDerSs Gf ‘COlUumMnNS 2Aat 
C assign the ranking of data 

ec MRANK ey econ Ce tne w Manes son) COlumns chat 
c assign the ranking of data 

C NNU Mc MuMoes CL COLUMNS Used fer ranking. 

e KMN : The number of column names used for ranking. 
e Sue soUP Ze. Atravs Storing the “number of row on which 
C Starts suppression of rows and the 
C corresponding on which ends the suppression. 
e SN : The number of assigned sSuppressions. 

S NOROW PeOgray  CReemMUMbe GS Of rows USed aS quides for 
e the ranking of the rows. 

c NBROW : The number of row numbers used for row 
C ranking 

c 

CRRKKKKKKKKKKKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK RK KKK KKK RK KKK KK 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 LEC, IMP,LOGN,NCOL,NROW,NN,NM,NNU,KMN,IJ,SN, 


i PLAGI(6),FPLAG2(4),NKEY(128) ,NRANK(128) ,A(128), 
2 B( 1238) ,NOROW( 2048) ,SUP1(128) ,SUP2(128), 
3 NRO(128) ,NRIN( 2048) 


REAL*4 RMIN(128),RMAX(128) 

CHARACTER*1 IND 

CHARACTER*24 FNAME,COLMNE( 128) ,MNE(128) ,MRANK(128), 
1 ROWMNE1 (2048) , ROWMNE2(128) ,NAME 


WRITE(IMP,100) 
WRITE(IMP,200) NROW 
IF (FLAG2(1).EQ.1) THEN 
WRITE( IMP, 300) 
Del —laNR 
WRITE(IMP,400) NRO(I),ROWMNE1(NRIN(I)) 
END DO 
END IF 
IF (FLAG2(2).EQ.1) THEN 
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100 
200 


200 


400 
500 


WRITE (IMP 2s00) 


DO l= 
WRITE(IMP,600) I,ROWMNE2 (1) 
DO J=a es ae 
NAME =e 
K=1 
DO WHILE(K.LE.NR.AND. NAMES SEO eee 
IF (J.EQ.NRO(K)) THEN 
NAME=ROWMNE1 (4) 
SND IF 
K=K+1 
END DO 
WRITE(IMP,610) J,NAME 


END DO 
IF (2 fit io eee 
WRITE(IMP,620) 
END IF 
END DO 
END IF 
LF (FLAG2Z( 3) 20. ea 
WRITE( IMP, 700) 
DOJ sia 
IF (SUPI1(1).NE.O.VAND: SUe2 
WRITS (IMP 2600). 1, SUBIR 
END IF 
END DO 
END IF 
IF (FLAG2(4).EQ.1) THEN 
WRITE(IMP,1100) 
DO I=1,NBROW 
WRITE(IMP,1200) NOROW(I) 
END DO 
END IF 
READ(LEC,900) IND 
EE ieUND BO 0 eee he 
WRITE( IMP,1000) 
RETURN 
END IF 
FORMAT (20(/), 20k) Rome INFORM A T Te@uiee 
iL V2 tok kk OK Kok kk kok OK Kok kk Kk ok kk kK kk ke RK KK KT) 
FORMAT (//29X, | NUMBER OF ROWS'/29X, 
Lo Fe eee eee =H yy 9). ES) 
PORMAT (/7 30%, | ROW MNEMONICS'/30X, 
Lo Fee eee ---- "17 2B 
2 "Row number',6X,'Mnemonics'/23x, 
3 '-~---~-~-~------------------ ') 
FORMAT (25X15 Vl eare 
FORMAT (//20X, ' SETS OF ROWS WITH COMMON MNEMONICS'/20X, 


2 


lL eee - - - - + -- - - - - - - - - - - ------- '//20e@ 
2 'Set',7X,'Set',7X,'Row' ,7X, 'Row' , /R7 19K) Nee 
3 3X, 'mnemonic' 3X, ‘number’ ,3X, mnemon ve ya 

4 fo ee eo ae a Se ee 
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600 
610 
620 
ae 


800 
900 
1000 
1100 
PZ 0.0 


BORMAL (17ers. 7K fares ) 

FORMAT (36: tS, Wee 2 a) 

a NR ' ) 
oe PSeiasseeis 7 On, -------- === Tos 

1 ‘Suppression’, 

2 3K, ° From moe 2 @ row /20X, 
ee ') 

BORMAT (19% .eomrseneiGs oA polo.) 


FORMAT (A) 
FORMAT 
FORMAT 
END 


Co ae 


( 

(A 
FORMAT(20(/)) 
( 

7S 


"ROW RANKING'/30X, ' 
oy 


ener KKK EKA RRA KARR AKKKEKR ARK KERKRKKKEKARRKRKRKRRERAAKAR ERK KK 


SUBROUTINE COLMOD( LEC, IMP,FLAG1,NCOL,NROW,COLMNE,NC,NCO, 


id 
2 


NCIN, RMIN, RMAX,NT,NTR,NTIN,NKEY,MNE,NN, 
NM, NRANK , MRANK, NNU, KMN) 


erm KX KK KKK KKK KKKKKKKKKKKKKAEKKKKKKKAKRKKKKKKKEREKKEKKEKKK KKK KEK KER 


Ginn eircom anata te) (lean (alt) (lem () (ln 01 (9 Ore) CO) One © 


ARGUMENTS 


ee ee 


ee 

vie 
LOGN 
FLAGI 
NCOL 
NROW 
COLMNE 
NC 

Ne® 
NCIN 
ROWMNE 1 
NR 

NRO 
NRIN 
ROWMNE 2 
RMIN, RMAX 
NT 

NTR 


NTIN 


Viet edhe d AliweennDeemsOrevyriting. on the 
terminal. 

The logical unit number for reading from the 
terminal. 

The logical unit for the file 
header,s data will be stored. 
Integer array of six elements used as flag 
tO indicate the existence or not of the 
several informations regarding the columns. 
The number of columns. 

The number of rows. 

Array storing the column mnemonic names. 

The number of assigned column mnemonic names. 
LiowiMoc. SOO LiMNns Por whren names nave 
been assigned. 

The invert relative addresses of COLMNE. 
Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNE. 
eaves coining che MNemoOnics Of Sets of rows. 
Arrays storing the minimum = and maximum 
valueS between which tracing of the data is 
going to take place. 

The number of columns’ for 
extrema have been assigned. 
The column numbers for which tracing extrema 
have been assigned. 

The invert relative addresses of RMIN,RMAX. 


on which the 


which EGacirng 
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NKEY : Array storing the numbers of columns agg 
will be used as sort#@ng eaicese 


C 

c 

e MNE : Array storing tne names of colUMNS agua 

€ will be used aS SOrting gquigece 

G NN : The number of repeated sortings accOraiwme 

G column numbers. 

e NM : The number of repeated sortings accoraiias 

e column mnemonic names. 

c IJ : The number of assigned tracing ex ~reénaweouem 

c A,38 >: Arrays storing the mumber of YOw OTe 
c Starts a set of common name rowS  dilciiae 

e corresponding on which ends the sez. 

C NRANK : Array storing the numbers of columns j2aam 

C assign the ranking of data 

G MRANK : Array storing the names of colUmmSiieagae 

e assign the ranking of data 

S NNU ; The number of columns used tor ranxigas 

C KMN : The number of column names used for range 

e SUP1,SUP2 : Arrays storing the number of row Olayaeee 
e Stagis suppression of rows and + ie 
E corresponding on which ends the suppression. 
C. SN : The number of assigned suppressions. 

S 

© 


KKK K KKK KKK KKK KKK KEKE EKER KK KK KKK KKK KKK KKK KKK KKK KKK KKK KX XK 5 eee 


IMPDTG1LE ING 362 22-2 fron) 
INTEGER*2 LEC, IMP,LOGN,NCOL,NROW,NN,NM,NNU,KMN,iJ, 


1 FLAG1(6),NTR(128) , FLAG2(4) , NKEW( 12 
2 NRANK(128),A(128),B(128) ,NCO(128) ,NCIN(128)5 
3 NTIN( 128) 


REAL*4 RMIN(128),RMAX(128),RMIND(128) , RMAXD(128) 
CHARACTER*1 IND 

CHARACTER*7 MODCOL 

CHARACTER*24 FNAME, COLMNE(128),MNE(128),MRANK(128) ,NAME, 
i ROWMNE1 (2048) ,ROWMNE2(128),COLMNED(128), 
DATA MODCGOLY “colunns 7 


PDUM=1. 
DOV WEEE DUM sao) 
I DUM=0 
WRITE( IMP,100) 
READ LEG. 200) rn 
[F (IND, 80. 1 teen 


GS Column number modification 
WRITE(IMP,300) NCOL 
READ( LEG, 310)" NGer 
I DUM=1 


ELSE IF (IND. EOy%2)) toen 
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Gollunmeninemoule names modification 


Per cries Ll) 20) mea N 
lo 
POV slo Ll Ne. 0 } 
WRITE(IMP,500) 
PLEAD LEC. 2400) = 1 
IF (I1.NE.0)THEN 
Jel 
Dow wet be (N@O(5) -NE.I.AND.J.L 
aoe 
END DO 
Poe tOowic:. AND.NCO(J).NE.1I) THEN 
pe n=i. NC 
COLMNED(K)=COLMNE (NCIN(&) ) 
END DO 
Dem — aie 
COLMNE (K) =COLMNED (2) 
END DO 
NC=NC+1 
NGOUNG /=1 
WRITE(IMP,600) COLMNE(NC) 
READ(LEC,700) COLMNE(NC) 
GAL 2 xSe iy NGO.NGINGNE , 1) 
ELSE 
WRITE(IMP,600) COLMNE(NCIN(J)) 
roe se 700) COLMNECNCIN( J) ) 
END IF 
END IF 
END DO 
IDUM=1 
ELSE 
WRITE( IMP, 800) 
CALL COLNAM(LEC,IMP,FLAG1,NCOL,COLMNE,NC,NCO, 
i NCIN) 
END IF 
BUSH elF (IND. EOQ-'3') THEN 


mM 
ob 
O) 


Tracing extrema modification 


IF (FLAG1(2).EQ.1) THEN 
lea 
DO WHILE (I.NE.0O) 
WRITE( IMP,500) 
Ramee 410 Oem t 
Deel aNE 0) “RH tN 


ial 

BGs, HMPGe NPR) Ne oL.AND.J.LE.NT) 
J=J+1 

END DO ‘ 

IF (J-1.EQ.NT.AND.NTR(J).NE.I) THEN 
BO K=] NT 
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RMIND(K) =3MiN GN eee 
RMAKD (UK) =RMAXOUNT De 
END DO 
BO K=1 ne 
RMIN(K) =RMIND(K) 
RMAX(K) =RMAXD(K) 
END DO 
NT=NT+1 
NTR(NT) = 
WRITE(IMP,900) RMIN(NT 
READ(LEC,1700) RMIN(NT 
WRITE(IMP,1800) RMAX(NT) 
READ(LEC, 1700) RMA Gi 
CALL EXSHI (NTR NUING@ 2 ee 
ELSE 


) 
) 


WRITE(IMP,3900) RMIN(NTIN(J) ) 
READ(LEC,1700) RMIMGEN TIN Gas 
WRITE(IMP,1800) RMAX(NTIN(J)) 
READ Eee. 1700) RMAX(NTIN(J)) 
END IF 
END IF 
END DO 
IDUM=1 
ELSE 


WRITE(IMP,1000) 
CALL EXRREM Cre ay IMP, FLAGI, NCOL, NROW, RMIN, RMAX, 
l Nay NTR) 
END IF 
ELSE 1F “CINDSEO. 4°) Tea 


SOTEINnG: GuNgdes Modnet tear ien 
LF SL PDAGIA 3).450.1) aa 
Sorting guides by column number modification 
WRITE(IMP,1100) 
WRITE( LEC 400) (NKE Gl ye leae 


CALL ANADIS(LEC, IMP,NCOL, NCOL,NKEY , NN, MOD@ame 
CALL REAR1 (LEC, IMP,NCOL,NROW,NKEY,NN) 


PLSE LF (FEAGI (4G) san 1) THEN 
WRITE( IMP,1100) 
DOT tM 
WRITE(LEC,1300) MNE(TI) 
END DO 


WRITE(IMP,1400) 

CALL ASBYMN(LEC, IMP,NCOL,COLMNE,NM,MNE) 

CALL REAR2(LEC, IMP,NCOL,NROW, COLMNE, MNE, NM) 
ELSE 

WRITE(IMP,1500) 

GABLE MULSOR(LEC, IMP ,NCOL, FLAG1,NRANK , MRANK | NAIM 

l -KMN, COLMNE) 
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100 


200 
300 


Zee 
400 
500 
600 


700 
800 
200 


1000 
ee O!O 
20 0 


END IF 
LpUM= 1 
aoe wert Daeo. 5 ) THAN 


Ranking modification 


Po OneAG I 5 )e50.1) THEN 

WRITE( IMP,1900) 

WRigwee LEG ,2400) (NRANK(1),I=1,NNU) 

eis US bree 41> NGCOL,NCOL,NRANA NNU , MCDCOL ) 

CALL RANK1( LEC, IMP,NCOL,NROW,NRANK,NNU) 
ELSE IF (FLAG1(6).50.1) THEN 

WRITE(IMP,1900) 

DO l=) AMN 

WRITE(IMP,1300) MRANK(I) 

END DO 

WRITE( IMP, 2000) 

CALL ASBYMN( LEC, IMP,NCOL,COLMNE,KMN,MRANX ) 

CALL RANK2( LEC, IMP,NCOL,NROW,MRANXK ,KMN, COLMNE) 
ELSE 

WRITE( IMP,2200) 

CALL CRANK( LEC, IMP,NCOL,NROW, FLAG1,NRANK,MRANK, 


NNU,KMN,COLMNE) 
BIND 9k 
ELSE IF (IND.EQ.' ') THEN 
RETURN 
END IF 

END DO 
EMEC N 
BORMAT(///68X%, MODIFICAT FON SELECTION TABLE'/8x, 
i, '----~------------------------ ak, 
2 Namo er oreeo Lumns I 7 oe 
3 ‘Mnemonic names 2 ae 
4 'Tracing extrema 32 ke 
5 (SO. tung guides Se 
6 ‘Rank of columns Sea OK; 
7 DAnSwe ne) 
FORMAT (A) 
Bon we 7/7 =o OlGmmuimoersmoer columns :',13,/'S',3X, 
i 'Assign new number aS) 
FORMAT (13) 
Bonar 7/4, LOO(Z0(13, 5.) /)) 
Doce > 7 ohn ASS1gm column mumber :' ) 
BORMAINY//4X%,° Old name mae Se 
il ‘Assign new name :') 
FORMAT (A24) 
FORMAT (///4X,'MNEMONIC NAMES HAVE NOT BEEN ASSIGNED!!') 
PORMAT(///4X,'Old MIN me Oya 3X, 
af ‘Assign new MIN :') 


Poni? Cen TRACING EXTREMA HAVE NOT BEEN ASSIGNED! !') 
BORMAN 7/744,'°Old sorting quides aya) 
PORMeinw 7/4k Assign column numbers :') 
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Sle 
1400 
ao 
1600 


O10 
1800 


1900 
2000 
2200 


FORMAT ( 
PS ORMAR ( 
FORMAT ( 


/2X,A24) 
///4&%,'ASSign mnemonic Hameo sua 
///4%,' SORTING GUIDES DOVWNCT SEs eae 


FORMAT(///4X,'THE ASSIGNED MNEMONICHAS NOT SeaN 7am 


a ' ASSIGNED AS COLUMN MNEMCNIC!!*//2x, 
2 "Assign next mnemonic’) 

FORMAT(F14.6) 

FORMAT(///4X,'Old MAX c/o la 67 oe oe 
1 ‘ASSIGN new MAK: | 


FORMAT (///4%)) Cildeiman e190 que 
FORMAT(///4X,'Assign new ranking guides :') 
FORMAT (///4X,'RANKING HAS NOT BEEN ASSIGNED!!') 


END 


CRRKRK KKK KK KKK KEKE KEK KKK KK KRK KKK RK KKK KR KR KKK RK KKK KEK KK KK KKK EK EK EK 


SUBROUTINE ROWMOD(LEC, IMP, FLAG2,NCOL,NROW, RCWMNEL,NR, 


1 
2 


NRO,NRIN, ROWMNE2,IJ,A,3,SUP!1,SUP2,SN, 
NOROW, NBROW) 


CRE KKKK KKK KKK KK KR KKK KK KEK KKK KKK RRR RRR KKK KKK KKK RK KK KKK KKK KK KKK 


Ome OOO) CrCl Ya Oe GO) eG) 


ARGUMENTS 


LEC 
[MP 


FLAG2 
NCOL 
NROW 
ROWMNE 1 
NR 

NRO 


NRIN 
ROWMNE 2 


[J 
A,B 


SUP SceeZ 


SN 


NOROW 


NBROW 


The logical unit number for writing Grime 
terminal. 

The logical unit number for reading from tne 
terminal. 

The corresponding flag f0, je ce 

The number of columns. 

The number of rows. 

Array storing the row mnemonic names. 

The number of assigned row mnemonic names. 
The numbers of rows for which names have 
been assigned. 

The invert relative addresses of ROWMNEe. 
Array storing the mnemonics of sets of rows, 
The number of assigned tracing extrema sets. 
Arrays storing the mumber of row on which 
Starts a set of common name rows and tne 
corresponding on which ends the sec. 

Arrays storing the number of row on which 
starts Suppression of rows and tne 
corresponding on which ends the suppressigam 
The number of assigned suppressions. 

Array the numbers of rows used as guides f0F 
the ranking of the rows. 

The number of row numbers used for row 
ranking 


KKEKKKKK KKK KK KKK KKK KKK KKK K KK KK KK KK KKK KK KX KK KK RK ee ee 


IMPLICIT INTEGER*2 (I-N) 
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i 


PNG EGER =2 FLAG? (45m (22 
N ( 


28) ,SUP1 ( 


ye ee) see 2 | 128) 
2048) ,SN,NCRCW(2904 


t 
RQ 
YS ) 


NRO( 128) ,NRIN 


CHARACTER*1 IND 

CHARACTER*7 MODROW 

CHARACTER*24 ROWMNE1(2048) , ROWMNE2(128) , ROWMNE1D(128) 
DATA MODROW/'rows'/ 


IDUM= 1 
DO WHILE (IDUM.EQ.1) 


T DUM=0 
WRITE( IMP, 100) 
READ bE Gaz 0 =) ND 
Te Comme.’ 2.’ )- THEN 
WRITE(IMP,300) NROW 
READ(LEC,400) NROW 
IDUM=1 
ELSE IF (IND.EQ.'2') THEN 
IF (FLAG2(1).20.1) THEN 
fs 
DO WHILE (I.NE.Q) 
WRITE(IMP,500) 
READ(LEC,400) I 
IF (I.NE.0O) THEN 
<1. 
DO WHlbe (NRO de eNs.1.AND.J.LE.NR) 
J=J+1 
END DO 
IF (J-1.EQ.NR.AND.NRO(J).NE.I) THEN 
DO" K= 1 NR 
ROWMNE1D(K) =ROWMNEL(NRIN(K) ) 
END DO 
DO K=1,NR 
ROWMNE1 (KX) =ROWMNELD(K) 
END DO 
NR=NR+1 
NRO(NR) =I 
WRITE(IMP,600) ROWMNE1(NR) 
READ(LEC,700) ROWMNE1 (NR) 
CALL EXSH1(NRO,NRIN,NR,1) 
ELSE 
WRITE(IMP,600) ROWMNE1(NRIN( 
READ(LEC,700) ROWMNEL(NRIN(J 
END IF 
END IF 
END DO 
I DUM=1 
ELSE 
WRITE( IMP, 800) 
CAlnL, ROWNAM (LEC, IMP, FLAG2,NROW, ROWMNE!,NR,NRO, 
i NRIN, ROWMNE2, IJ,A,B) 
END IF 
taster (IND. EO. '3") THEN 


J)) 
)) 
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IF {FLAG2 02). 205))) Tae 
WRITE(IMP,S300) 
READ( ESC, 200) 7a 
IF (IND.2£0,.°0" )) toa4 
el 
DO WHILE(I.N#.0Q) 
WRITE(IMP,1000) 
READ UBC, 210.00 ma 
IF (I.NE.0O) THEN 
WRITE( IMP, 1100p 
READ( LEC 72 0G]eAvene 
WRITE( IMP,1200) 
READ( LEC 400) = Bia 
END IF 
END DO 
ELSE IF CIND, 80. ° 27 3 oeen 
= 
DO WHILE(I.NE.0O) 
WRITE(IMP,1100) 
READ CUBCG. 00pm 
IF (I.NE.0) THEN 
WRITE( IMP,1400) ROWMNE2(1I) 
READ(LEC,700) ROWMNE2(1) 
END IF 
END DO 
IDUM=1 
ELSE 
WRITE(IMP,1500) 
IDUM=1 
END IF 
ELSE 
WRITE( IMP, 800) 
CALL ROWNAM( LEC, IMP, FLAG2,NROW, ROWMNE1, ROWMNE2, 
i Vo Aee 
END IF 


A ies ie 


ELSE IF (IND.EQO] 4°) gaan 
IF (FLAG2( 3) 380) Seen 
re 
DO WHILE (I.NE.0) 
WRITE( IMP,1600) 
READ( LEG) 400) 1 
IF (I.NE.0) THEN 
IF (SUP1(I).EQ.0.AND.SUP2(1) .3070)saae 
SN=SN+1 
WRITE( IMP,1700) SUPI1{(I),SUP2(1I) 
READ( LEC, 400) SUPIRGI 
WRITE( IMP,1800) 
READ(LEC,400) SUP2(1) 
ELSE IF (SUPI1(I).NE.0.AND.SUP2(1) (Nae 
ik THEN 
WRITE(IMP,1700) I1,SUP1(1), SUSP2( ae 


4 


N 


i493 


100 


200 
300 


400 
500 


ReaD hee. 200) SUP1(T) 
WRITE(IMP,1800) 
Bae bee 200) SUP2(1) 
Maemesue il hi, 20.0,AND.SUPZ(7) .=0.0) 
i THEN 
NROW=NROW+1 
END IF 
END IF 
END IF 
END DO 
CALL SUPSET(LEC,IMP,NCOL,NROW,SUP1,SUP2,SN) 
eM 
ELSE 


WRITE( IMP,1900) 
CALL ROWSUP(LEC, IMP,FLAG2,NROW,SUP1,SUP2,SN) 
END IF 
ELSE IF (IND@eO,'5') THEN 
IF (FLAG2(4).EQ.1) THEN 
WRITE( IMP, 2000) 
WRITE(LEC,2100) (NOROW(I),I=1,NBROW) 
CALL ANADIS(LEC, IMP,NROW, NROW,NOROW,NBROW, 


i MODROW ) 
CALL REORD(LEC, IMP,NCOL,NROW, FLAG2 ,NOROW, 
1 NBROW ) 
eM —= 
ELSE 


WRITE( IMP, 2200) 
CALL ANADIS(LEC,IMP,NROW,NROW,NOROW,NBROW, 


1 MODROW ) 
CALL REORD(LEC, IMP,NCOL,NROW, FLAG2,NOROW, 
ik NBROW) 
Bia 
Booth woiND. BO.” *) “THEN 
RETURN 
Ease 
WRITE(IMP,1500) 
I DUM=1 
END TE 
END DO 
FORMAT(10(/),4X,'MODIFICATION SELECTION TABLE'/4X, 
i '----------~--~-~-------------- 7 oe 
Z "Number of rows cE 7 ek, 
2 ‘Mnemonics by row 2, (ox 
4 ‘Mnemonics by series of rows :3'/4X, 
S “SO pgess 1on 24° /4X, 
6 "Rank of rows a5)! 
7 (te ee a Wee —) 
FORMAT (A) 
Hon ue @lad nimber of rows :',15/'S', 3X, 
a 'ASSign new number >) 


FORMAT (15) 
Behe 77 space ASsStemecobumn number :' ) 


So 


600 


700 
800 
900 


1000 
1100 


1200 
1400 


oud 
1600 
F700 


1800 
Pee 
2000 
2100 
2200 


FORMAT(///4X,'Old name 2! A227 See ew 
1 'Assign new name :') 
FORMAT(A24) 


FORMAT (///4X, ‘Old mnemonic 

1 "Assign new mnemonic 
FORMAT(///5X,'INVALID CHARACTER! !' ) 
FORMAT(///'S',3X,'Assign suppression number :') 


FORMAT(///3X, 'MNEMONIC NAMES DO NOT EXIST! !’) 
FORMAT(///4K, Serle Moditicavwer L'/4X, 

1 "Name modification [2° 7 eee 
2 ‘Answer 2) 
FORMAT(///'S',3K, ASSIGN Serle) aumbe we 
PORMAT( ///2x, “Cli@mscuee ' 1S 
i PE rPOmn ae > Loy aoe 
Z  T Otero, ', [Sy aee 
3 "Assign new serie bof Sie ae 
4 'From row ') 
FORMAT ("S' | 3x9 ome ") 


FORMAT(///4X, 'Old suppression ', 15 )7ae 
1 Prom Gey ' lao 
2 Te vreow ', 15/7 
3 'AsSlgn new suppression ', 15,7 a 
4 BK Di stolen, | glow ao 
FORMAT (Sse Oman ey a 


( 
FORMAT(///4X,'NO SUPPRESSION HAS BEEN ASSINGED!!') 
FORMAT (//7/4% Olid, ranking. > 

FORMAT (/4X,100(20(13,',')/)) 

FORMAT (///4X, 'RANKING HAS NOT BEEN ASSIGNED!!') 
RETURN 

END 


CRKKKKKKK KKK KKK KR KKK KR KR KARA KKK KAR KK KKK KKK ARK KKK KKK KKK KKK KKK KKK 


SUBROUTINE TESTER (NCOL, NAME) COLMNS tase) 


CRKKRK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK AK KKK KKK KKK KKK KK 


er ONG) OrCY OY OC Cry a) 


This subroutine is used to test if a@ mnemonic Naima 
been assigned as column mnemonic name 


ARGUMENTS 


— eee ee 


NCOL : The number of columns 

NAME ; The MRemonleetomsemees tece 

COLMNE Array storing the column mnemonic names 
data will be stored. 

res T : Flag indlc¢at imagens see de 
assigned mnemonic or not. 


tested name 1S am 


KREKKEKKKKRKRKKR KKK KK KKK KK KKK KKK KKK KKK KK KK KK KK KK KK KR A ee 


IMPLICIT INTEGER*2 (I-N) 


ol 


C¥RKKKKKKKEKKKKKEKKKKEKKEKEKKKKKKRKKRKRKKKKKKRKKKKKKK KKK KKK KKK KK KEK KK KK 


CRKKKKKKKKKRKKKKKKKEKKKKRKE KR KKK KK KKK KEKE KKK KE KKK KKK KKK KKK KKK RK 


c 


e 
c 
c 
c 
€ 
C 
c 
C 
C 
C 
ie 
G 
c 
C 


INTEGER*2 NCOL 
CHARACTER*24 COLMNE(128) ,NAME& 
LOGICAL*1 TEST 
rail 
TeEST=.FALSE. 
Ben WH BEC TEST PO. .nabSe.«.AND.,1,G8.12e9 
IF (COLMNE(I).EQ.NAME) THEN 
Paok——_ TRUE. 
END IF 
T=I+l 
END DO 
RETURN 
END 


SUBROUTINE REORD( LEC, IMP,NCOL,NROW, FLAG2,NORCW,NBROW} 


ARGUMENTS 

LEC wiicmmrogical Unit number fOr writing on the 
Senha | 

IMP Mite melogtiGal UNit mRumber fOr “reading from the 
terminal. 

NCOL : The number of columns 

NROW ; The number of rows 


NOROW : Array the numbers of rows used as guides for the 


Hanking Of the rows, 
NBROW ; The number of row numbers used for row ranking. 


PEPCK MR RK KKK KKK RK KKK KEK KKK KKK KKK KKK KKK KKK KR KKK KKK KKK KKE KK 


IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 AR(128) ,NO(128),NOR(128) ,DUM(128),FLAG2(4), 
il NOROW (2048) 

CHARACTER*45 DEVDIR,NAME*10 

REAL*4 X(128),Y(128) 

DIMENSION NOCOL(256) 


DALAT DEV BUReNAME, (| DUAG 2° ,' °/ 
DATARECGOUD. WOGNEWY?, 2/ 


BING? (4) — | 
NBYTES=NCOL*4 
GAGL FICH ('069' ,LOGOLD,1,DEVDIR,NAME,NROW,NBYTES,1, 
1 'DIRECT', LEC, IMP) 
IF (NBROW.NE.NROW) THEN 
NBYTES=NCOL* 4 


LOGNEW=3 | 
CALL FICH('069' ,LOGNEW,1,DEVDIR,NAME,NROW,NBYTES,O, 
i 'DIRECT' LEC, IMP) 


a2 


DO 1=2 
READ 
WRITE ( 

END DO 


ROW 


LOGNEW I 


NROW=NBROW 


ELSE 


DO f=], NBRey 


READ ( 
READ 


LOGOLD' I 
LOGOLD'NOROW (TI) 


WRITE 
J=I 
DO WHILE 
J=J +e 
END DO 


( 
WRITE (LOGe mene 
(LOGOLD'NOROW(1I) 


(LCOGSiEbi NCROAes 
) 


) 
) 
) 
) 


(NOROW(J).NE. 


NOROW (J) =NOROW( I) 


BND DO 
EN Del 
CLOSE (LOGOLD) 
CLOSE ( LOGNEW) 
RETURN 


(Y(5),J=lyieee: 
(Y (J), J = ieee 
(X(3),J=1,NCOL) 
(Y( J) J = aNee ry 
(Y(J),J=ljieem) 
(X(J),J= eee 


END 


CRKKKKAKKKKKKRKK KKK KKK KKK KK KR RRR KKK KK KKK KKK RK KK KKK KKK KKK KE KK AKAAR 


SUBROUTINE RANK] 


(LEC, IMP,NCOL, NROW, NRANK, NNU) 


CREKKKKKKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK 


C 


C 
C 
C 
G 
c 
C 
c 
C 
S 
. 
c 
e 
© 
S 
C 
C 


Used 


BO rearrange 


the columns of the data items 


according the column numbers assigned by the user. 


ARGUME 
LEG 
IMP 
NCOL 
NROW 
NRANK 


NNU 


[MPEre 
INTEGE 


NS: 


The logical 
terminal. 

Thess] Logue a | 
Peril hal. 

The number of 
The number of 
Aaray gS te Gund 


unit number for writing On ig 
unit mumber for reading it rGmeiee 
Co Puli 


CrOWS. 


the column numbers that deems 


the reordering of the columns. 


The number of 


iT INTEGER 2 
R*2 NRANK( 128) 


columns that will be ranmkece 


KEKE KKEKKKEKK KKK KE KKK KKK KK KKK KKK KKK KKK KKK KK KK KK KR KK KKK A ee 


(I-N) 


CHARACTER*24 A(128),B(128) 
CHARACTER*45 DEVDIR,NAME*10 


REAL*4 


DATA DEVDIR,NAME/‘ DUAQ 


KA Gs)s) lees) 


2. ane 


DATA LOGOLD, LOGNEW/2, 2/ 


ea 


fe Bormene “Old” “£1 le. 


WRITE( IMP,100) 

NBYTES=NCOL*4 

CALL FICH (Ooo) SReGeL.) 1) DaVDI2,/NAME,NRGW,NSYTES,1, 
i VDEREG?' LEG. IMP ) 


C Morethe evemtual ‘mew. file. 


IF (NNU.NE.NCOL) THEN 

LOGNEW=3 

WRITE( IMP, 200) 

NBYTES=NNU*4 

eee tan O50 LOGNEW,!,DEVDIR, NAME ,NROW,NBYTES, J, 
il 'DIRECT' , LEC, IMP) 
END IF 


DO I=l1,NROW 
READMececemmume <xXi J Je o—), NCOL) 
WRi te OmeGNew 1) (xX (NRANK( J) ),d=1>NNU) 


END DO 
NCOL=NNU 
Giese (LOGOLD) 
CLOSE ( LOGNEW) 
RETURN 
100 FORMAT(/'S',3X,'Assign the ''OLD'' direct access file 
i ese) (=) 
200 FORMAT(/'S',3X,'Assign the ''NEW'' direct access file 
1 ae 37 ("=") 
END 


CRRKKKKKKKEKKKKEKKKKKK KKK KKK KEKE KK KKK KK KKK KKK KEK KKK KK KKK KK 


SUBROUTINE RANK2 (LEC, IMP,NCOL,NROW,MRANK,KMN,COLMNE) 


CRKKKKKKKKKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KARR KR KEK 


Cc 

3 NGeGa Stemi tearmange the columns of the data matrix 
G according the column mnemonic names. It calls TRANS to 
e transform the column name to column number. 

c 

oe ARGUMENTS 

= 

C LEG meee lOgieal Unie ~auUmber ~foOr writing on the 
C terminal. 

€ IMP mle welOgtGal Q§UM1e 9 muUmber for reading from the 
€ terminal. 

e NCOL : The number of columns. 

ic NROW : Tne number of rows, 

ce 


MRANK : Array storing the column mnemonic names that 


154 


c 
S 
2 
e 
C 


determine the reordering of the columns 
AMN - The gumper vor col! UMNS that will Seerdam.cesm 
COLMNE: Array storing tne cColUMNA Gmemonm meme en 


kkeke kK Ke KK KKK KEKE KK KKK KKK KKK RK KR KEK KKK XK Se Kee 


IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 N(128) 

REAL*4 K(128) 32 Giza 

CHARACTER*45 DEVDIR,NAME*10 
CHARACTER*24 COLMNE(128) ,MRANK(128) 


DATA DEVDIR, NAME, DEAG: ae 
DATA LOGOLD/2/ 


NBYTES=NCOL* 4 

WRITE(IMP,100) 

CALL FICH('069' , LOGOLD,1,DEVDIR, NAME, NROW, NBYTEao ae 
1 ‘DERE GR. ceGeeiun 

CALL TRANS (NCOL,COLMNE, KMN, MRANK,N) 

DO I=1,NROW 


READ(LOGOLD'I) ore, yee 
WRiTe( LOGOED mewn _KMN) 
END DO 
CLOSE ( LOGOLD) 
RETURN 
FORMAT(/'S',3X,'AsSign the ''OLD'' direct access miaaume 
1 ie 37 ae ye) 
END 


Cx KKKKKKR KK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KK KKK KK KKK KEK KK KKK 


SUBROUTINE REAR] (LEC, IMP,NCOL,NROW,NKEY,NN) 


CxeKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEE 


Oa (Cr OeCy) OOO) @ Oy CrO Om 


Used to continue the process of multi-sorting aceonraumam 
column numbers by calling the subroutine wea] 


ARGUMENTS 

bee : The logical unit number for writing On ae 
terminal. 

IMP ; The logical unit number for reading frome 
terminal. 


NCOL : The number of columns. 

NROW : The number of rows. 

NKEY : Array storing the column numbers used as sorting 
column #auidese 

NN >: The number of repeating sortings accords 
column number. 


kaekkekekekeKR KK KEK KKK KK KK KKK KKK KKK KK KK KKK KKK KR KR KR Ke 


1eSy 


Pepperem INTEGER*2° (1-N) 

INTEGER*2 NKEY(128) 

SAP COGULD 2/7 

CALL REAR(LEC, IMP,NCOL,NROW, NKEY,NN) 
RETURN 

END 


ee A AR KK ARK KAKA XARA K RAE A KR KKARKAKKKARKKKKAKERKRKKKKKK KK KE 


SUBROUTINE REAR2(LEC, IMP,NCOL,NROW,COLMNE,MNE,NM) 


Mee IR AAA KA KK AK KK XA KAKA KAK AKER AKAKAKKAKKAKKAKKKKAKKKKKKKAKKKK KK KX 


rere) Ch) Orr (90) Cr Oe area 


ft functions like REAR] for column assignment according 
eclummemames. [& calls TRANS to transform column names 
=O Cevun numbers. 


ARGUMENTS 

HAS : The logical unit number for writing on the 
ean 

IMP SeVjemeregtes! “UNlt @Mimber tor reading from the 


terminal. 
NCOL : The number of columns. 
NROW : The number of rows. 
COLMNE: Array storing the column mnemonic names. 


MNE > Array storing the names of columns which will be 
used as sorting column guides. 
NM : The number of repeating sortings according 


Se unas mmemon)ecenames . 


ere xe x x x XX XK KAR RK KK RK ER RK KR KER KR KKK RE KKK KKK KERR KEK KKK KK KEKE KEKE KR KEKE 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 N(128) 

CHARACTER*24 COLMNE(128),MNE(128) 
DATA LOGNEW/2/ 

CALL TRANS (NCOL,COLMNE,NM,MNE,N) 
CALL REAR( LEC, IMP,NCOL,NROW,N,NM) 
RETURN 

END 


CRRKKKKKKKKKKKKKK KKK KK KK KR KKK KKK KKK KKK KKK KR KKK KKK KKK RK KKK KKK 


SUBROUTINE REAR( LEC, IMP,NCOL,NROW,AR,NSORT) 


CRRKKKKKKKEKKEKKKKKKKKKKE KKK KKK KKK KKK KARR KK RRR KR RR RRR KR KR KKK KK KK KK 


VO OO Cy Aaa! 


Tse omeene mulElSOmeing Gf the data matrix. It opens 
the direct-access file of data, and consequenty calls 
Mimo MbimolrinmewAATREE for the Sorting. It rearranges the 
data according the filnal inverted relative addresses 
Without uSing extra file for temporary storage of the 
data. 


ineiG 


C 

e ARGUMENTS 

C 

C LEC : The logical unit mumber for writing "ORuyyae 
C terminal. 

e IMP > The logical unit number for reading itTOmeuum 
c terminal. 

S NCOL : The Wumeer oF “columns 

e NROW : The number of rows. 

G AR : Array storing the numbers of columns used "ae 
C guides for the mult tsomeeaer 

Gc NSORT : The Qumber cet equ cece 

CI IIE HO IH SA IOI 1308 40 2 errr 


IMPLICIT INTEGER*2 (T=N) 

INTEGER*2 AR(128),NO(128) ,NOR(128) ,DUM(128) 
CHARACTER*45 DEVDIR,NAME*10 

REAL*4 X(1 280 wei) 


DATA DEVDIR, NAME DUAD >" 3 ae 
DATA. LOGOLDY 27 


NBYTES=NCOL*4 
WRITE(IMP,100) 
CALL FICH('069' ,LOGOLD,1,DEVDIR,NAME,NROW,NBYTES,1, 


i 'DIRECT' , LEC, IMP) 
C 
C PART 1 : Successive actualization of NO() according tomas 
e address calculations after each sort over. 
C 
G For each sorting colum guide. 
DO I=l1,NROW 
NOR(I)=I 
END, DO 
DO J =A NSORE 
DO I=1,NROW 
e For next column guides, oermits actualization of NO 
READ( LOGOLD'NOR(1)) (XU = PeNGoim 
Wee ee 
END DO 
e Tree sort is needed for multi sorts, 12 the datadueus 
C in previous order, the user will “burst” them Gye 
c dummy sort according to any unsorted columns 
C restore the performances of this method. 
CALL EXTREE(Y,NO,NROW,1) 
cS 


DO L=1,NROW 
K=NOR(NO(L)) 


oe 


Gr Eire 


100 


DUM(L)=K 
END DO 
DO N=1,NROW 
NOR(N) =DUM(N) 
END DO 
END DO 


EPEGee ew Reareanaimamemnes according £6 Last NO(), withnour 


Gxt ca  sSeerege, 


DO I=1,NROW 


ReaD  EOGCOnbiel | mae ds) ,J=1,NCOL) 
PEADEROCOnm: NOs ion) (Y(J),J=1,NCOL) 
WRITE(LOGOLD'I) (Y¥(J),J=1,NCOL) 
No nOcOkm Neri) (x(t ),J=1,NCOL) 
w= 
DOs EE UNOR GI) NE. 1 ) 
eo 
END DO 
NOR(J)=NOR(TI) 
END DO 
GEOSE (EOGOLD ) 
RETURN 


Tove men satan the "'OLD'* direct access file 
1 A a fa )) 


_ END 


CRRKKKKKKKKKKKKEKKKKKEK KKK KR KER KE KEKE KEKE KKK KKK KEK KK KK KKK KKK KK 


SUBROUTINE TRANS (NCOL,COLMNE,N1,N2,N) 


CRA KKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK 


ine are) CO) Oe) te) O) FC) (ice) 


Used to transform column mnemonic names to corresponding 
column numbers. 


ARGUMENTS 

NCOL : The number of columns. 

COLMNE: Array storing the column mnemonic names. 

Nl P Iheenumber Gf guides. 

N2 ; Array storing the column names used aS guides 
for the multisorting. 

N _eAGiedy Storing the eeuumnm numbers after 


Ewana format lon . 


MPPMEKexex KAA Re KA KAKA KKK KKK KK KKK KKK KEK K KK KKK KKK KKK KKK KK KKK KKK KKK KKK 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 N(128) 

CHARACTER*24 COLMNE(128) ,N2(128) 
EOGUGCAL de TEST 


BO. 1-158 


6 


DOrJ=17ieee 


IF (COLMNE(]) .=0.N2(1)) See 


Tas —s 
ELSE 
TEST=.FALS=. 
END IF 
IF (TEST 20... 2205. eo 
Neto) a) 
END IF 
END DO 
END DO 
RETURN 


END 


CRERKRKKKKKKKEKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KE 


SUBROUTINE COMROW(LEC, IMP, LOGN,NCOL,NROW, FLAG], FLAG2, 


a COLMNE,NC,NCO,NCIN,!IJ,A,3,ROWMNE!,NR, 
2 NRO, NRIN, ROWMNE2?,H1IFNAME ,H2FNAME,R2MIN, 
3 RMAK NT NTE ia 


CK KKK KKK KR KERR KKK KKK KKK KKK KK KKK KKK KEK KK KEK KKK KK KKK KKK RK KKK KKK 


c 

C Used to merge (combine) two data files and their neaders 
C in the row-row (one over the other) sense. 

C 

G ARGUMENTS 

e 

e Ee : The logical unit number for writing Om=yas 
c Ceorminale 

c IMP : The logical unit number for reading frome 
E fermi wake 

C LOGN : The logical chanel for the file on Whwee 
G will be stored the header's data. 

e NCOL ; The number of columns” 

G NROW : The number of rows. 

c FLAG1 : Integer array of six elements used as um 
e to indicate the existence or not Of jG 
c several informations regarding the columns. 
G FLAG2 : The corresponding tlag ter rower 

G COLMNE : Array storing the column mnemonic names. 

c NC : The number of assigned column mnemonic names. 
c NCO ; The numbers of columns for which have been 
g asSigned names. 

c NCIN : The invert relative addresses for COLMNE. 

C ie : The number of assigned tracing extrema sets. 
C Ae ; Arrays storing the number of row on which 
€ Starts a set of common name rows and the 
C corresponding on which it terminates. 

& ROWMNE 1 : Array storing the row mnemonic names. 

C NR : The number of assigned row mnemonic names. 

€ NRO : The numbers of rows for which Have been 
C assigned names. 

C NRIN : The invert relative addresses of ROWMNE., 
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CYOCY OGY Oey ea) CY 0) OO) 


ROWMNE 2 Mme Gay seeming the mnemonics of sets of rows, 


HIFNAME : The name of the first header's file whicn 
will be merged. 

H2 FNAME S imemmtamerot es ymemsecCOnde:ile¢ for merginc. 

RMIN,RMAX : Arrays storing the minimum and the maximum 
values between which tracing or the data is 
Going ee cane Olace. 

NT Dviemnneonemet | GOLUMNS “for which tracing 
extrema have been assigned. 

NTR tie ce kiinemmemUnNoem@s  fOrerpwhien for which 
tracing extrema nave been assigned. 

NTIN : The invert relative addresses for RMI,R2MAX., 


IMPLICIT INTEGER*2 (I-N) 


INTEGER*2 FLAG1(6) , FLAG2(3),NCO(128) ,NRO(128) ,A(128), 
il Bao) AD BD NrR( 128) eNeEOD( 128), FLAG12(6), 

2 FLAG22(3) ,NTRD(128) ,NTIN(128) ,NTIND(1 23 

3 MRIN( 128) ,NCIN( 128) ,NCIND(128) 

CHARACTER*24 COLMNE(128) ,H1FNAME,H2FNAME,COLMNED(128), 
i ROWMNE1(128) ,ROWMNE2(128) , ROWMNED 


REAL*4 RMIN(128),RMAX(128),RMIND(128) ,RMAXD(128) ,X(128) 
CHARACTER*45 DEVDIR,NAME*10 


DATAS DE VOtR,NAME/ DUAO) =',' '/ 
DAL uOCihyeLeGOLm), LOGOLD2Z/ 3, 1.,2/ 


Open the first header's file. 


OPEN (UNIT=LOGN, FILE=H1FNAME,STATUS='OLD' ) 
REWIND LOGN 


Read the data to be combined. 
Rwaw LOGN, 100 NGL NR1,NCA,NRA,IJA,NTA 


READ(LOGN, 200) (FLAG1(1),1=1,6) 
IF (FLAG1(1).EQO.1) THEN 


RED CLOGNese0 ) VCCOLMNE(I),1=1,NCA) 
Ga eeOGNere UO me NGOb (1) f= 1 NCA) 
Ree (MOG Oem NEINCL) = f=1,NCA) 
Dean =i) Nex 
COLMNED(I )=COLMNE(NCIN(1I)) 
END DO 
END IF 


fe PCR DAGh(2).&Q.1) THEN 


READ(LOGN,500) (RMIN(I),I=1,NTA) 
ree | COGN S500) (RMAX@L). 1=1 NTA) 
Reo DeEOGN 200) ei NTRD( 1), l=1 NTA) 
PoP emeeia20 0) «NTINGT), 1=1°NTA) 


DO) sain A 
RMIND(I)=RMIN(NTIN(I)) 
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RMAXD( 1) = RMA (NG ae 
END DO 
END IF 
READ(LOGN, 200) (FLAG2(1), [=i,3) 
IF (FLAGZ (UE sere toe. 


READ(LOGN, 300) (ROWMNED( 7 3 —- fee 
READ(LOGN,200) (NRO(I),I=1,NRA 
READ(LOGN,200) (NRIN(I),I=1,NRA) 


END IF 

IF (FEAG2Z( 2) SOn ae 
READ(LOGN,300) (ROWMNE2(1),I=1,I1JA) 
READ(LOGN, 200) (AGI) l=t9ne. 
READ(LOGN, 200) (B(I),I=1,IJA) 

END IF 

CLOSE (UNIT=LOGN) 


Open the second header's file. 


OPEN(UNIT=LOGN, FILE=H2ZeNAie oe eso nnae 
REWIND LOGN 
READ(LOGN,100) NC2,NR2,NCB,NRB,IJB,NTB 


If the two headers Nave the same number of Col unm. 
the process of combindatfon 1s com: tinued: 


IF (NC1.BQO.NC2.AND. (NRIGNR2) ce eee 
NCOL=NEl 
NROW=NR1+NR2 
READ(LOGN, 200) (FLAG12(I1I),I=1,6) 
IF (FLAG12(1).EQ.1) THEN 
FLAG1(1)=1 
NC=NCA+NCB 
READ(LOGN,300) (COLMNE(I),I=1,NCB) 
READ(LOGN,200) (NCOD(1))1=l- Ney Ne 
READ(LOGN,200) (NCIN(I),I=1,NCB) 
DO: T= Nes 
COLMNED(I+NCA) =COLMNE(NCIN(I)) 
END DO 
CALL EXSH1( NCOD Nellis ie 


Combination of Mnenen ve momar 


hoa su 
OrrPH 


af 
K 
i 
DO WHIERE( bea 
IF (NCOD(J).BQOlNGOD( J+) Sine. 
NCOURK | =NGenieg) 
COLMNE(K) =COLMNED(NCIND(J) ) 
NCIN(K) =K 
wea +2 
K=K+l 


sy 


bbe! 
eos 
NCOUR Neon Tg) 
CORMIER) -GObDMNED( NCIND(J)) 


NCIN(K)=K 
J=JI+1 
K=K+1 
END IF 
END DO 
END IF 
NC=NC-L 
Po OnaAGl2 (2 ).5O.1) THEN 
eens j= 1 
NT=NTA+NTB 
READ( LOGN-S00)" (RMIN(I),1=1,NTB) 
READ(LOGN, 500) (RMAX(I),I=1,NTB) 
ReAminOGN 200. (NTRDA 1). l=LeNTAUNT ) 
READ(LOGN,200) (NTIN(I),1I=1,NTB) 
DOei-! Nis 


RMIND(I+NTA)=RMIN(NTIN(I)) 
RMAXD(I+NTA)=RMAX(NTIN(1I) ) 


END DO 

GALL: EXSHL(NTRD VEeND NT. 1) 
Jal 

aa 

L=0 


DO Walon o,be NT) 
Bet NTRD (d) seOoNTRD gal)  TaeN 
Nip eeeke) = TRO Ki 


RMIN(K)=MIN(RMIND(NTIND(J)), 
RMIND(NTIND(J+1))) 

RMAX(K)=MAX(RMAXD(NTIND(J)), 
RMAXD(NTIND(J+1))) 

NTIN(K) =K 

J=J+2 

K=K+l 

L=L+l 

EES s 


NTR(K)=NTRD(J) 
RMIN(K)=RMIND(NTIND(J)) 
RMAX(K) =RMAXD(NTIND(J) ) 
NTIN(K) =K 
woo 
K=K+1 
END IF 
END DO 
END IF 
NT=NT-L 
READ EN ACh (FLAGZ2 (1), t=) 
Pe ninaG220e) EO. 1). THEN 
NR=NRA+NRB 
FLAG2(1)=1 


Mo 2 


READ(LOGN,300) (ROWMNE1 (1) 1=l¢Neeeee ee 
DO J=) Nee 
READ(LOGN,200) NROD 
NRO(J+NRA) =NROD+NR1L 
END DO 
DO J=leNre 
READ(LOGN,200) NRIND 
NRIN(J+NRA) =NRIND+NRA 
END DO 
END IF 
IF (FLAG2Z2(2)), BO va aaa 
PLAG2 (2 =. 
lJ =i Ae 
DO. [=ls1as 
READ(LOGN, 300) ROWMNED 
ROWMNE2 (I1+IJA) =ROWMNED 
END DO 
DOV ara 
READ(LOGN,200) AD 
A(I+IJA)=AD+NRL 
END DO 
DO: T= ie 
READ(LOGN,200) BD 
B(I+IJA)=BD+NR1 
END DO 
END IF 
CLOSE (UNIT=LOGN) 
NBYTES=NCOL*4 
WRITE(IMP,600) 
CALL FICH('069' ,LOGOLD1,1,DEVDIR,NAME,NR!,NBYTeoeee 
i YDIRECT" , LEG, Ives 
WRITE(IMP,700) 
CALL FICH('069’ , LOGOLD2,1,DEVDIR,NAME,NR2,NBYTES) ae 
l ‘DIRECT , LEG iis 
WRITE( IMP, 800) 
CALL FICH('069' ,LOGNEW,1,DEVDIR,NAME,NR1+NR2,NBYTES, 
i 0, "DIRECT. LEC sie 
DO l=) Ned 
READ(LOGOLD1'1) Ay) piece 
WRITE(LOGNEW'I) (X(J),J=1,NCOL) 


END DO 
DG. = 1S. NR 
READ(LOGOLD2'1) (X00 Sai eon 
WRITE(LOGNEW'I+NR1L) (X(g 0 = NCom 
END DO 
ELSE 


WRITE( IMP, 400) 

CLOSE (LOGOLD1 ) 

CLOSE ( LOG@EBe 

CLOSE ( LOGNEW) 

RETURN 
END IF 


1363 


100 
200 
200 
400 


500 
600 


700 
800 


me) URN 
END 
Mea RK RRR RARER RK EKKR RAR KK KREARARKRAXERRARARKRAKKRKKKKRER EKER EK KX 

SUBROUDeNEMGOMGOL (LEC; ite LOGNANGOL -NRCW,PLAGiI,FLAG2, 

i Cor varie ee wiCet Nee sks, ROWMNE LNA, 

2 NRO, NRIN, ROWMNE2, H1FNAME, H2FNAME, 

3 RMIN, RMAX,NT,NTR,NTIN) 

ee RAKE AK KKKE KKK KAKKKKKKKKARKRKEKAKRARRKEKRRAKRKKKKKKRKREKK KEK KEK KK K 

Used to merge (combine) two data files and their headrs 

in the column-column (one aside the other) sense. 

ARGUMENTS 

EEE thew sg ecameemit mumber for writing on the 
terminal. 

IMP The logical unit number for reading from tne 
terminal. 

LOGN (icmroched Wmenaneleat@nrmeene file on wonich 
will be stored the header's data. 

NCOL Theme por eee LUM Ss. 

NROW The number of rows. 

FLAG] Integer array of six elements used as flag 
to indicate the existence or not of the 
several informations regarding the columns. 

FLAG2 Dmeweorrespomaiung flag for rows. 

GCOLMNE Array storing the column mnemonic names. 

NC The number of assigned column mnemonic names. 

NCO The numbers of columns for which have peen 
assigned names. 

NCIN The invert relative addresses for COLMNE. 

el The number of assigned tracing extrema sets. 

Dee PeGays StOCnmmg the mMumber of row on which 

Starts a set of common name rows”) and the 
Ceecesoonaimqy on Whien it terminates. 

ROWMNE 1 Array storing the row mnemonic names. 


Geer One) Gra a7 @) @) Gr GO), OOO) Creer ey 6) er aa) 


FORMAT(615) 

PORMAT (io 

PORMAT(A24 ) 

FORMAT (///4X, TGevwenwea lON £5 NOT POSSIBLE DUE TO', 
il 7X, DIFFERENT NUMBER OF COLUMNS! !') 
FORMAT(F14.6) 

BOR eee ASGianmemersrirst ''OLD' bedirect ', 
i Baeeeccgume les /4X,37("=')) 

hon Meee neeencsian the Second "'NEW"' direct’, 
il Mmrseeceocm se ile 72x), 3/( —')) 

en his oeeeessign thee’ NW’ " direct access fiie 
1 ee |): 


GHOSE HOGemMon | 
CLOSE LOGOED ) 
CLOSE ( LOGNEW) 
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UR 
NRO 


NEN 
ROWMNE 2 
HI FNAME 


H2 FNAME 


nee 


NTR 


NTIN 


AANA ANADADAOO Ae @G aera re 


IMPLICIT INTEGER? 
INTEGER* 2) 2 bAG eee) 


i: 
¢ 
g 


CHARACTER*24 COLMNE 
ROWMNE1 (128) 
REAL*4 RMIN(128) 
CHARACTER*45 DEVDIR, 


1 


DATA DEVDIR,NAME/' 


RMIN, RMAX 


row MRemon 
= Os 


The number Of ass famed 
The numbers Of) se7- 
assigned names. 

The invert relative addresses of ROWMNE. 
Array storing the mnemonics of sets Gt agus 
The name of the first header's file whicn 
will be merged. 

The name Of tne Secepewr mre 
Arrays storing 


namese 
wnicn naveweeean 


fou merging. 
the minimum and the fveeeueee 


values petween whicn tracing of the data is 
going to take place. 

The number of columns for which  “Giaiemeee 
extrema have been assigned. 

The column numbers for which for "ia 


tracing extrema have been assigned. 
The invert relative addresses for RMI,RMAX. 


KEKKKKKE KKK KEKE KKK KK KEK KEK KKK KK KKK KK KKK KKK KK KKK KKK XK KOK KR eee 


(I-N) 

»FLAG2 (3) /NCOU L2G) (NRO oe 
B(128),NTR(128) ,NROD(128) ,FLAG12(6) , FLAGZ7iaeumm 
NTRD,NTIN(128) ,NTIND,NRIN (128) .NCIN(1 23m 


NRIND( 128) 


SNe IND 

(128) ,HLFNAME,H2FNAME, ROWMNE1LD(128), 
,ROWMNE2 (128) , ROWMNED 
»/RMAX(128),RMIND(128) ,RMAXD(128) 
NAME*10 


Xt Zee 


DUAR: ! ae 


DATA LOGNEW. LOGOLD IP LeGoEnZ, 2 sae 7 


OPEN (UNIT=LOGN, FILE=H1FNAME,STATUS= 


REWIND LOGN 


READ(LOGN,100) 


“OM =) 


NC1,NR1, NCA, NS Aoi a NES 


READ(LOGN, 200) (PLAGI (Gh) 1= ie 

IF 4FEAGI (Le EOeh) reins 
READ(LOGN,300) (COLMNE(I),I=1,NCA) 
READ(LOGN, 200) (NCO(I),1=1,NCA) 
READ(LOGN, 200) (NCING@1)= 1 — eo 

END IF 

LF A PEAGI (2) 220. eG 
READ(LOGN,500) (RMIN(I),1=1,NTA) 
READ(LOGN,500) (RMAX(I),I=1,NTA) 
READ(LOGN, 200) (NTRt1) 3a ie 
READ(LOGN,200) (NPIN(I1 =i 

BN eles 

READ( LOGN, 200) (FPLAG2Z (1) 4 Gaia) 

IF (FLAG2(1).EQ.1) THEN 
READ(LOGN,300) (ROWMNE1(I),I=1,NRA) 
READ(LOGN, 200) (NROD( 1 3b —i 
READ(LOGN,200) (NRIN(I),I=1,NRA) 


GS 


SO 1-1 NRA 
ROWMNELD(1I)=ROWMNE]L(NRIN(I)) 
END DO 
END IF 
IF (FPLAG2Z(2).E0.1) THEN 


READ(LOGN,300) (ROWMNE2(1),i=1,I1JA) 
PEND WEOGN, 200) (a1 1) ,1=1, lJ a9 
READ EOGN  2O0@)) (S(1), i=i, IJA) 


END IF 
GLOSEVUN PT =LOGN) 
OPEN(UNIT=LOGN, FILE=H2FNAME, STATUS='OLD' ) 
REWIND LOGN 
READ(LOGN,100) NC2,NR2,NC8,NRB,IJB,NTB 
IF (NR1.EO.NR2.AND.NCI1+NC2.LE.128) THEN 
NROW=NR1 
NCOL=NC1+NC2 
READ(LOGN, 200) (FLAG12(1),I1=1,6) 
he heel (ly 2O.!l) THEN 
NC=NCA+NCB 
Pence (t) =i 
READ(LOGN, 300) (COLMNE(1),I=1+NCA,NC) 
DOwl=l- NCB 
READ(LOGN, 200) NCOD 
NCO(I+NCA) =NCOD+NC1 
END DO 
DOni— 1) NCB 
READ(LOGN, 200) NCIND 
NCIN(J+NCA) =NCIND+NCA 
END DO 
END IF 
Pe GieGlese Zee OTA EN 
NT=NTA+NTB 
BAG | 2) = 1 
READ(LOGN,500) (RMIN(I),I=NTA+1,NT) 
ReaD eeGN 00) (RMAXK (1) /I=NTA+1,NT) 
DO o- ily NTS 
READ(LOGN, 200) NTRD 
NTR(J+NTA) =NTRD+NC1 
END DO 
DONT Ss 
READ(LOGN, 200) NTIND 
NTIN(J+NTA) =NTIND+NTA 
END DO 
END IF 
READIGEOGN, 200). FLAG2Z2(1),1=1,3) 
IF (FLAG22(1).EQ.1) THEN 
PIL NED i) oak 
NR=NRA+NRB 
READ(LOGN, 300) (ROWMNE1(I),I=1,NRB) 
READ(LOGN,200) (NROD(I),I=1+NRA,NR) 
READ(LOGN,200) (NRIN(I),I=1,NRB) 
POr =| NRB 


Tos 


100 
200 
300 
400 


010 
600 


700 


ROWMNELD( I-NRA) =ROWMNEL(NRIN(1)) 


=ZND DO 

CALL EXSHL(NROD,NRIND,NR, 1) 
Ja 

K=1 

L=0 


DO WHILE (J.LE.NR) 
IF (NROD(J).EQ.NROD(J+1)) THEN 
NRO(K)=NROD(J) 
ROWMNE1(K) =ROWMNELD(NRIND(J)) 
NRIN(K)=K 
JaJI+2 
K=Ke | 
L=L+l 
ELSE 
NRO(K)=NROD(J) 
ROWMNE1(K) =ROWMNELD(NRIND(J) ) 
NRIN(K)=K 
Jao 
K=K+l 
END IF 
END DO 
END. TE 
NR=NR-L 
CLOSE (UNI P=EeGn 
NBYTES=N@1 <4 
WRITE(IMP,600) 
CALL FICH('069' ,LOGOLD1,1,DEVDIR,NAME,NR1,NBYTSES, 
1 1, “DIRECT EEC, wie 
NBYTES=NC2*4 
WRITE( IMP, 700) 
CALL FICH('069' , LOGOLD2,1,DEVDIR,NAME,NR2 NBYV ieee 
al 1,' DIRECT’ LEC vey 
NBYTES=(NC1+NC2) *4 
WRITE( IMP, 800) 
CALL FICH('069' , LOGNEW, 1,DEVDIR, NAME Nel Nee 
1 NBYTES,0,' DIREGR laa ae 
DO I=1,NROW 
READ(LOGOLDL“1) (kts) = eee 
READ(LOGOLD2'I) (X(J),J=NCr1,NC2) 


WRITE(LOGNEW'I) (X(J),J=1,NC2) 

END DO 
END IF 
FORMAT (615) 
FORMAT (I5) 
FORMAT (A24) 
FORMAT (///4X,'COMBINATION IS NOT POSSIBLE DUE TO', 
l 7X, 'DIFFERENT NUMBER OF ROWS!!') 


FORMAT (F14.6) 

FORMAT(/'S',3X,'Assign the first”) GED) Gieeoaum 

l ' access filt@2] /4x%) 37 ae 
FORMAT(/'S',3X,'Assign the second “ "NEW" direc reams 
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800 


C** 


C*x 


x * 


CVO O O CHG alt ee ee) CY Oren er G6) ClO) CO) Ciera 


)) 


1 Pecos oni bemeee 4X, 37('—' 
mpee es New direct access tile 


BOSMAT (57), 3%, ASSICn 
i Wy ox 87 Ga) 
Guest (hOGOLD ls) 
CLOSE(LOGOLD2) 
CLOSE ( LOGNEW) 

RETURN 

END 


heck ck ck wiki a a km KK rrr hm RRR KK eRe KK KKK KKK KEK KKK KKK 


SUBROUTINE EXTREE(A,NO,N, IND) 


Meek reer wk wk kak eco rr ke A mK ARK KKK RRR RRR KK KK KA KKE KKK KK KK 


SUGmourime — fOr imternal and address calculation sort usin 
Bae @ree sort ("Monkey-ouzzle sort”) te obtain the rank 
emews S, Im this CdSe the original array xX() is 
modified. 


If the X{) are in random order the number of comparisons 
@uperne wonder of N log2(N); if the A() are already in 
required order or reverse order the number of comparis 
mmOtethe order .of N*N/2. 


n 


CniGt 


ARGUMENTS : 


Xx > Elements to sort. 
NO PeneGiness ea leulat ion for the “rank. 
N : Number of elements to sort. 


IND : If >0, elements are sorted in ascending order, i: 
Vet nea esecenad ing Order . 
2048 items maximum. 


Reference : 


mencley Prr. (19608; “Trees, Forests and Rearranging", 
Senoucer J, vol,3, no.2, July, p.84-88. 


KEK KKK KKK KKK KKK KKK KKK KKK KKK KR KKK KKK KK KKK KKK KKK 
IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 ILB(2048),IRB(2048) ,NO(2048) 
REAL*4 A(2048),AI,AJ 
PlesGesatetirst esa) Gm the root. 
ipl ie) — 0) 
fee 1) =0 
DO) Gans 


Les ole) =o 
IRB(I)=0 
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AAO. OVOG 


Oe 


OTe 3 AAO Oe sere 


ANDAN 


CGO) 


Select the root of the tree 4S the i2e6m for conDa > weeee 


3: 
it 
O WHILE(X. 
K=0 


Ja 
| 


es 


Orr) 


Permutation in function of IND. 
LF CINDe Gis) TaEN 
Sort By ascending erdere 
AI=A(I) 


A= eae 
ELSE 


Sort. by descendinc Onden. 
AI=A(J) 


ye) 
END IF 


ty 


Compare the new item with the item for comparison. I 
the new item should follow, 


PCA Gee) eet 
If the item for comparison has a right brance, taxe the 
item to which that branch points as the new item for 
comparison, 


IF (IRB(J).LE.0) THEN 
Copy the backtrack of the item for comparison ineouiee 
backtrack of the new item, and set the rignt pointer Of 


the item for comparison tO DOINE to the Newt em 


IRB(I)=IRB(J) 


Reto) =i 
ELSS 
J=ee ea) 


Make the packtracks of the new item point to the item 
for comparison, and set the left pointer of the item f6r 
comparison to DOINt tee hewmne a een: 


K=1 
END aoe 
ELSE 


If the item for comparison has a left branch, taxa 
ltem to which that branch points as the new item for 


I & 


C) QR © 2 AAO 


Gr GIO) OA 


CVG aA 


comparison. 


Siege eewlcn tme bveem at the root of the <tree, 


beer Seeelteme mas a left branch, take the item to which 
Pidweordnen pOInES. 


Pet Tine jeer. 0.) REN 
M=I1 LBC) 
K=1 

ELSE 
as 


iiicmicom rhe Mert] Hem 2m Order. 


POMnHILe {L. EO!) 
=o 


Ordered item found, adress NO(). 


M=M+1 
NO(M) =J 


If this item has a right branch, take the item to which 
that branch points. 


IF(IRB(J).NE.O) THEN 
Leica) .Gr.o) THEN 


d= TRE) 
seul 

ELSE 
J=-IRB(J) 


Take the item to which the backtrack points. 


Jags, 


c and Of Dre@essr 
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SUBROUTINE RANDOM( LEC, IMP,NCOL,NROW) 


CxeRKKR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK RK KEKE 


terminal. 
NCOL <« THe number “of -comumns- 
NROW : The number of rows. 


S 

G Used to randomize the data matrix of an dSSavamree 
G mass-storage file. 

G 

c ARGUMENTS 

c 

€ LEC : The logical unit number for writing Glee 
S efeberimal sels. | 

c IMP : The logical unit number for reading ftrommeye 
e 

G 

G 

C 

G 
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IMPLICIT INTEGER*2 (I-N) 

REAL*4 XRAN(2048) 

INTEGER*2 AR(128),NO(128),INIT(6) 
CHARACTER*45 DEVDIR,NAME*10 

REAL Sa ete cee eee) 


DATA. DEVDIR,NAME/ DUAU 4 > 7) oo, 
DATA LOGOLD/2/ 

DATAY INIT) Soe 7 62. So gnt onc oe, 
DATA INDRAN? 1/7 


NBYTES=NCOL*4 

WRITE( IMP,100) 

CALL FICH('069', LOGOLD,1,DEVDIR, NAME ,NROW NBY ace 
1 ‘DIRECT’ , LEC, IMP) 


DO I=1,NROW 
XRAN (I) =RANDAN( INIT, INDRAN) 
END DO 
C Use tree sort because data are sandomuzeam 


lee: 
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Geshe | KRAN,NO; NROW, 1) 
DO = NiROW 


PeemereGOuD fy (xt) ,3=1,NCCL) 
Porm LOGOLD NOii)) (v(t) ,Jj=1,NCOL) 
pies  LOGOLD 1) (Y (ij) ,J=1,NCOL) 
Wine LOGOLh NO Wl) ) (A(0),J=1,NCOL) 
a 
DO WHILE(NO(J).NE.1I) 
T= +1 
END DO 
Neg =No i 1) 
END DO 
CLOSE (LOGOLD) 
RETURN 
OC veo sor Aasremerme | OLD Girect access file 
I Wok 3 =) 
END 
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FUNCTION RANDAN( INIT, IND) 
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e 


ce 


. 


IMPLICIT INTEGER*2 (I-N) 

DOUBLE PRECISION X 

Bec ERoee oye ININGU6),ON(6),LNPI(6),C,P,O 
Daye 36/70/6747 59,47,62,36 ,45523/ 

IF( IND.NE.0)THEN 


h=0 

Bean Looe 1] JEP lO) 
T=[+1 
Poe 1 Nort } 

END DO 


IND=0 


ELSE 
ENG Le 


C=0 
K=Q 
MQ=M/Q 
EMO= 25-10 
DOs h..GT..0) 
IQMK=Q-K 
. 1=0 
P=0 


HZ 


DO WHI EE 0 lees 
P=P+A(I+K) *LN(Q-I) 
l= {72 

END DO 

P=P+C 

C=P/IMQ 

LNP1(K)=P-C*IMQ 

K=K-1 

END DO 


as DO 


DO WHILE (173) 
t=taa 
K=X+LNP1(1)*2.**(-MO*7_) 
LN(I)=LNP1(1) 

END DO 


RANDAN=4 
RETURN 


END 


CRKAKKKKKKKKKKKKKEKKREKKKEKKKEKKKKKKKKKKEKKKKKKKKKKKKKKAKKKK KE AE Re 


SUBROUTINE FINDMM (LEC, IMP,NCOL,NROW, FMIN, FMAX) 


CR KKK KRKKKKKEKKKEKRKKEKKEKKEKKKKR KK KEKKKEKKEKKKKKEKEKRKKEKEKEKKKKKKKKKKKRK AS 


IMPLICIT INTEGER*2 (I-N) 

REAL*4 X(128),FMIN(128) , FMAX(128) 
CHARACTER*45 DEVDIR,NAME*10 

DATA DEVDIR,NAME/'DUAO :',' ‘/ 
DAT Ae heGOEE, 2” 


DOv J Neo r 
FMIN(J)=+1.E+38 
FMAX(J)=-1.E+38 

END DO 


WRITE( IMP,100) 
NBYTES=NCOL*4 
GAie  £GH ('069' ,LOGOLD,1,DEVDIR,NAME,NROW,NBYTES,1, 
1 ‘DIRECT’ , LEC, IMP) 
DO I=1,NROW 
READ(LOGOLD'I) (X(K),K=1,NCOL) 
Oa eee 


IF (FMIN(J). X (ee 
FMIN(J) =X (3 

END IF 

IF (FMAK(I) SLi Go ere 
FMAX (J) =X re ) 


ri 





END 

END DO 
END DO 
CLOSE (LOG 
RETURN 
FORMAT (/ ' 
iL ay 
END 
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SUBROUTIN 


CRRRKK KKK KKKKK 


Tse 
Keyboard 
elements: 
Bpaclnl eS 
Row 
Real 


Oper 
The resul 
consisted 
character 


NCOL 
NROW 
COLMNE 


NC 
INDEX 


CORO) CFO Or avOr el OY Oy-@) Ce) 6 OC Cra Geis) 


mock KKK KKK KK KKK 


Do timate 2s 


1 
OED) 
mers k, Asst@n ene 'OLD’* direct access ile 
en | = 1) 


Make kA keke Anh hk Ak A KR RK K KE KK RR EK KR KKK RK KEK 


E CONV(NCOL,NROW, COLMNE,NC, INDEX) 


Cokin he keke A rer Ak K Rie ak ea kK Kerk A KAKA KK kK eK KE 


PAsertea Dy the 
nas of 


Outine analyzes the expression 
MP maCmiOrestrinmg im cme £[Ollowing x1 


SQRT(7]) 
(eg. [8]) 
integer S 
ecm EM ci 4 a) 
out 0 Set Oa 
this analysis is 
the above kind of 


tions (eg. 
assignment 
S Or 


ators 
iar Oe 

Or 
Se 


A-meatUx express lon 
elements, but in 


ARGUMENTS: 


The number of columns. 
The number of rows. 
Array storing the column mnemonic names and the 
assigned transformations. 
The index of the array COLMNE. 
Pointer marking the index of 
the transformations start. 


GOEHMING. On © xvnven 


kOe Kee ek a ke Rom a Ae ek wee A eA Ke Ke ek kkk KK KK KKK KK KX 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 CN,PP 

REAL*4 X(128),ARG,VAL,&,RES 
CHARACTER*24 COLMNE(128) 
CHARACTER*1 SYMB(24), 
il CONS(14),8BR 
CHARACTER*5 FUN 
CHARACTER*45 NAME*10,DEVDIR 


oN G 
Pe Leh) 


beCGtenl  eMARK, TEST NEG, CHECK 


EQUIVALENCE (SYMB(1),STRING) 


DATA DEVDIR,NAME/'DUAO :',' 
DATA LOGOLD, LOGNEW/2, 3/ 
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he 


PPOs leas). F 


(7) ,NUM( 


: 


ay 


Ora a) 


NBYTES=(NCOL-(NG@—1 Nos) = 

Open the file which contains the data to be transiormeds 
WRITE o- woe 

CALL FICH('069' ,LOGOLD,1,DEVDIR, NAME ,NROW NSYTeS ae 

1 "DIRECT',5,6) 

NBYTES=NCOL*4 


Open a new file with the same name, on wnicn tne 
transformed data wil iize —ee7rcam 


WRITE (6,400) 
CALL FICH('069' ,LOGNEW,1,DEVDIR,NAME,NROW,NBYTES,O, 
aL ‘DIRECT s45 26) 


For each row of the data Matrix, execute the assigmeg 
transformation. 


DO JK=1,NROW 

Read the entire row of data. 
READ(LOGOLD'JK) (X(K) ,K=1,NCOL=(NC= i pane 

Calculate the number of transformations (IND). 
IND=NC-INDEA 

For €@dch transternaa on. 
DO I[K=i NG=1NDEX 
Store the expression representing the transformation 
in the variable STRING. In following this string jae 
analyzed. 


STRING=COLMNE( IK+INDEX) 


Initialize the pointers. 


i 


-~ bh 


Oo 4 Et Ol 
\ 
rR R eR 


YU il 


Initialize the fiags. 


TEST =. RAkSe 
MARK=.FALSE. 


deh. 


Creare © 


CORA (Ga (2) 


CY CY Gre 


GE@yO) 


Crpen—  cAL Se. 
NEG=. 5 ALSs. 


ReMemeaeeegabacte> Oc Zac String, 


DO I=1,24 
Peni enamdemebn lou abet cer, Store it in che one 
character array F and signal the encountering a 
Piece lOn in eMeuenamStOrmlation Sy seting the lag 
TES PO cE rue, 
TP ects tee A AND. SYMB(1).LE.’Z'’) THEN 

F(N)=SYMB(T) 

TES P=) RUE 

N=N+1] 

[lt the Gheanpeeeer 1S%mmmbDer or ".", then 

DoS oe econ GiveaGEee Oo. SAND. SYMB(1).bB.'9') OR. 


SYMB(I).EQ.'.') THEN 


Preemie woracker 1S @loscampor no bracket has still 


been encountered, the number is a constant 


by the transformation. Store the number in 


array CONS and mark the encountering 
constant by seting the flag MARK to true. 


fr @ BRO | ORmae. fo. ") THEN 
CONS(L)=SYMB(I) 
MARK=.TRUE. 
L=L+l 

Else if the bracket 18S opened, then 


BPESE) UEmCBR- BO.’ |’) THEN 


used 
the 


a 


if function has been encountered, the number 
1s the representation of the column number 


the value of wich 1S going to be used 


aumento  Huine =1ON . 


Leo bes ieewO.. PRUEy)) THEN 
F(N)=SYMB(TI) 
N=N+1 


as 


Else, the number is the representation of 


column but the coresponding value 


going to be used as a constant. 


ELSE 
NUM(M)=SYMB(T) 
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is 


C1) 


no) 


CHeGK =. Pee 
M=Mrl 
es 
ENDL. 
If the character 15°") ae eee 


ELSE IF (SYMB(I).2Q.'{') THEN 
BR=SYMB(TI) 


if function nas deen encounterd, 
in the same array with the funct 


IF (TEST .5OQ..TRUE See 
F(N)=SYMB(I) 
N=N+1 


to variable BR 


=ne 


4j (dD 


or 
( 


St 
ion (ae 


t 


else store it in the same array with tne 


numbers representing columns. 


ELSE 
NUM (M) =SYMB(I) 
M=M+1 

Bi omeaec 


Flse if the symbol is "]" then set 
Bi cnc, 


ELSE. IF “(SYMBC1 )#20n |) eae 
BR=SYMB(I) 


lit to Vamuerenee 


1£ function has been encounter say store ttm 


the same array 


IF (TEST.EO..TRUE. ) aa 
F(N)=SYMB(I) 


else store it with the mumber representing 


eo uiiing. 
Biase 
NUM(M) =SYMB(TI) 
ENDL 
Else 1f the sympeietrsm — [ae der 
BLSE IF (SYMB(1 )SoQ een! 


if the previous character was 


"("  mneansunaieaa 


follows negative number and mark it Dy seting the 


flag NEG to true. 


eae 


CTU 


(7G O) 


ee ope ia) On 4”) THEN 


if 1 


BLSe the senacaoesT = reoresents tne symco! 


OF Phe supezaeelon. 
PeSE 
If function nas been encountered, 


TF (TES@e20..TRUE.) THEN 


[reemem—meNeG flag iS true the "-" is olacea 


deere Sooaqummumg Of the function storing 
the generated infix expression. 


To ON2GetOe. TRUE.) THEN 
Le pee a! 


and in followng the function name sto 
Hime sariady — 15 also placed in 
infix expression. 


DOmwg= iN 
INF(IP,J+1l)=F(J) 
END eo 
Suicemupemem —'" 9 1S used t0 Negqate 


function the flag 1s reset to FALSE, 
NEG=.FALSE. 


and the pointer of the generated in 
expression IP, 1s increased. 


TP=[P+1 


The "(" is also placed as element of 
ri Gee 


INF(IP,1)=SYMB(TI) 
IP=[ P+] 


aiemutomerag TEST 1S reset to FALSE 
MiGMeGawes=mat mo fUNCLION 1S active. 


TEST FALSE . 


neta 


mee 
Lhe 


rhe 
fix 


the 


Tia mnGe-mmOr ss deray.’ F 1S set to one, 


ready to accept the next fuction name 


N=1 


lee 


®e 


Cra 


Ane 


Else (the ¢£ 
repeat the sam 
“Ne -£Uneee 


CY et tan 


=LSE 

DO Ga ea 
INF(IP,dJ)=F(0 

END DO 
[P=to 
INF(IP,1)=SYMB(I) 
IP=IP+]l 
TEST =. 2 oe 
N= 

END IF 


Else if constant nas been encountered, 
ELSE IF (MARK.EQ..TRUE.) THEN 


if the NEG flag is set, place the COs 
Stored in array CONS in the generarced 
infix expression but negeting it flea 


IF (NEG.EQ..TRUE.) THEN 

INFOIP.))= "= 

DOs =i | 
INF(IP,J+1)=CONS(J) 

END DO 

NEG=.FALSE. 

IP=IP+l 

INF(IP,1)=SYMB(I) 

IP=IP+l 

MARK=.FALSE. 

aa 


Otherwise do the same without negation. 


EbSe 

DO: J=ae! 
INF(IP,J)=CONS(J) 

END DO 
162 yp 2s 
INF(IP,1)=SYMB(T) 
IP=IP+l 
MARK=.FALSE. 
=a 

END IF 


Repeat the same process if number representing 
column has been encountereca: 


2 


rere) 


HH OO NM FF? 


PLSE IF (CHECK.EQ..TRUE. 
IF (NEG.EQ. . TRUE. ) 3 
WR TE, Lie 
pow) = ls 
PN eee + 1) =NUM(O) 
END DO 
NEG=.FALSE. 
IP=Ip+l 
Gael PP 1) =SYMBC(I ) 
IP=IP+l 
CHECK=.FALSE. 
me 
ELSE 
pew -1.- 
INF(IP,J)=NUM(J) 
END DO 
[P=IP+l 
INF(IP,1)=SYMB(1I) 
IP=IP+] 
GSEGK=sPFPALSS. 
M=1 
END IF 
ENDagl E 
END IF 


) 
Pen 


If the character is an operator or end of string 1s 
PGeUMEe SOE MenGirrenemactive fLumction,constane or 
column value must be placed in the generated infix 
expression. The same process used above for the "-" 
1S going to be used herein also. 


ot emo ieee |’ OR,SYMB(1).50.')'.OR. 
(Giemnos =’ OR. 
SiMe @imeo, ' *'.OR.SYMB(I).EO.'/'.OR. 
Sime. ~" .OR.SYMB( i 

(I- 


pene." 7) TN 


P(e or he. TRUE.) THEN 
IF (NEG.EQ..TRUE.) THEN 
INeCIP,1)= 
ees le 
Doe le —— (J) 
END DO 
NEG=.FALSE. 
IP=IP+] 
INF(IP,1)=SYMB(I) 
IP=IP+l 
Dash — esr. 
Neal 
ELSE 
Sen — lea 
NERD ye =e) 
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SND 2 oe 


ELSS TF (MARR Oleg aun 
) 


ee 


) THEN 
(NEG. HO]2 TRUE |) ae 
INF ( Pee 
DO G= laa 

INF CLS J+) —6e. ene 
END DO 
NEG=.FALSE. 

[P=IP+] 

INFULS Hse a 
IP=IP+] 
MARK=.FALSE. 

= 


BES 


DO. j= ea 
INE (1 Pd) —eoNsia 
END DO 
[P=I P+] 
INF( IP) 1) =SYMBw 
[P=I P+] 
MARK=.FALSE. 
bet 


END Le 
ELSE. [PF “(CGHECK BOs 2h Ure: mentan| 


oe 


(NEG.EQ..TRUE.) THEN 

INE ( LE) =e 

DO =e 
INF(IP,J+1)=NUM(J) 

END DO 

NEG=.FALSE. 

IP=IP+l 

INF CPP, 1) =Sisee 

IP=IP+l 

CHECK=.FALSE. 

M=1 


ELSE 


DO Gaia 

INF( IP, J) =NUM(S) 
END DO 
IP=IP+] 
INF(IP,1)=SYMB(I) 
IP=IP+] 
CHECK=. PARSGEe 
Mai 


Ne ee 
ELSE IF (TEST.EQ..FALSE..AND.MARA EO.) 


thers 


eG 


VO 
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Pee ene CeO. PASS.) THEN 


INF(IP,1)=SYMB(I) 
IP=iIP+l] 
ee) ae 
Ee ie 
END DO 
IP=IP-2 
As soon an infix expression 1S generated, the process 
for ects evaluation is continued, by calling the 


appropriate subroutines. 


CALL PFIX(INF,POST,IP,PP) 
GA sr cOGOlme- OST, kes,fP,; INDEX,NC,JK,NCOL, 
X,FUN,ARG, IERR) 


Tie wrestle 91S "Dlaced im OMe DoSition after the last 
column increasing the numbers of column by one. 


X (NCOL-IND+1)=RES 


One transformation has been evaluated and their number 
Genmcecreasea. 


IND=IND-l 
Ea @ 


les the flag IERR used to signal that invalid argument 
Eien mi UMemLon fas Deen encountered (eq. Square root of 
negative number) is not set then the new row (contanig 
the transformed columns) is written to the new file. 


IF (IERR.NE.1.AND.IERR.NE.2) THEN 
WRITE(LOGNEW'JK) (X(K),K=1,NCOL) 


Else a message 1s displayed and the program returns for 
new assignement. 


ELSE IF (IERR.EQ.1) THEN 
WRITE(6,100) FUN,ARG 
CLOSE ( LOGNEW) 

RETURN 

ELSE 
WRITE(6,200) 
CLOSE ( LOGNEW) 


RETURN 
END IF 
END DO 
CLOSE (LOGNEW) 
RETURN 
Ona, INVALID FUNCTION ARGUMENT <- ‘'.A5,’(', 
1 aoe oe) 


eZ 


200 
300 


400 


FORMAT (//4X%, 'INVALID DiViISGTCN MS Oe 
PORMAT(//4K,'ASSl1gn the '"OLD “"Givece waee= = 2am 
- / 4% on ee 

FORMAT(//4X,'Assign the ''NEW'" direce access =) semua 
l /4&xX Loot =e 

END 
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SUBROUTINE COMP(EUN) ARG7A2 ere 


CRRK KKK KKK KKK KR KKK KR KR KKK KKK KKK KKK KKK KKK KKK KKK KK RK RRR KKK KKK KK KK 


CHO) Cy Or Or) CO Oy ae: 


AMA 


This subroutine 1s used to compute the values geen 
functions that may be included in a transformation see 
the FORTRAN 77 Du VNGe at Wien 


ARGUMENTS: 


FUN : Name of the function. 

ARG : Argument of the sume eene 

AP ; Result of thew eunGe ven 

IERR : Flag indicating that an invalid adarquUmeiipee 
assigned. 


KKK KKK KKK KKK KKK KK KKK KKK KKK KR KKK KKK KR KKK KKK KKK KKK KK KK XX 5 eee 


IMPLICIT INTSGSR<2 6 1-2) 
GHARACTER=soe fun 
REAL*4 ARG,AP,AX 


IERR=0 
IF (FUN. BO: ' "SORR’) waeNn 
IF (ARG.GE.0) THEN 
AP=SORT(ARG) 
ELSE 
PER R= 
END IF 


Use the build in intrincic functions of FORTRAN (77am 
the computation of the Several assigned by the 
SxXDreSsiloOn funGe once 


ELSE IF (FUN.EQ.' LOG') THEN 
IF (ARG.LE.O) THEN 
APSA eG take. 
ELSE 
IERR=l1 
ENDS 
ELSE IF (FUN.EQ.' LOGC') THEN 
LF (ARG, LE. eee 
AP=LOG10( ARG) 
ELSE 


183 


ae Re 


END IF 

EeGe Cheer UN. 20. =xP°) THEN 
AP==5XP( ARG) 

PULSE lr FUN@gon. SiN) THEN 
AP=SIN(ARG) 

PeSe fn Venn cOmCOS 7 THEN 
AP=COS (ARG) 

BSE lf aN. BO. - TAN) THEN 


AP=TAN(ARG) 

ELSE IF (FUN.EQ.' ASIN') THEN 
AP=ASIN(ARG) 

ELSE IF (FUN.EQ.' ACOS') THEN 
AP=ACOS (ARG) 

ELSE IF (FUN.EQ.' ATAN') THEN 
AP=ATAN(ARG) 

ELSE IF (FUN.EQ.' ABS') THEN 
AP=ABS(ARG) 

Boeke PUN] Oona ) THEN 
AP=SINH(ARG) 

ELSE IF (FUN.EQ.' COSH') THEN 
AP=COSH( ARG) 

ELSE IF (FUN.£OQ.' TANH') THEN 
AP=TANH (ARG) 


Compute the Arc Hyperbolic Sin function not included in 
the build in functions of the language. 


ELSE IF (FUN.EQ.'ASINH') THEN 
ARG=ABS (ARG) 
AP=ALOG(ARG+SQRT(ARG*ARG+1) ) 
IF (AP.LT.0) THEN 

AP=-AP 
END IF 
END IF 


RETURN 
END 


CRXRKKKKKKKKKKKKKEKK EKER KKK KK KKK KKK KK KKK KKK KKK KKK KKK RK KKK KE KK 


SUBROUTINE PFIX(INF,POST,IP,PP) 


CREEK KEKKKKKKKKKKKK KKK K KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK RK KKK KR 


Opera e) 


Oe 


This subroutine transforms the infix expression produced 
by the subroutine CONVERT to postfix notation using tne 
push-down stack method. 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 PP 
GHAR AG@@ee= = POST(18, 14), INF(18,14) ,STACK(30) 


Cite wens tdet pOlneer Koand the pointer PP of th 


ae 
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3G) CyOirGing: Be OS Cie) 


Oca 


Ciera? 


ie 


For each element of the infix expression, 


DOGG Le 


the first character of the element 1S lett ore 


tf 
place it on the generated postfix expression. 


IF ((INF(I,1).GE.'A',AND.INF(I,1).LE.‘'Z’) OR Joie 
l EQ.'(') THEN 
PP=PP+} 
DOm a = eies 
POST(PP,J)=INF(I,J) 
END DO 


Flse if the first character Pte e mune te 


place 1t on the generated postfix expresion. 


ELSE IF ((CINF(1I,1).GE.'O' .ANDRING 2) mee 


il INF(1I,1).80.' .7’ eae 
PP=PD+] 
DOs = ae 
POS TUDE d )— Nr are 
END DO 
Else if the element 1s "+", which has 


DFLOrley Of sOeeraeonge: 


ELSE IF (INF(I,1).EQ.'+') THEN 


Ui tt 
« 


then 


'9' ) JOR 


the lowest 


if the stack is not empty and the topmost element 1s not 
"(""' pop the stack and place the element on the postfix 


expression, push the next element OG 
expression into the stack. 


IF (K.NE.0.AND, SWSGK (KR) Sie Oe 


PP=PDP+] 
POST (PE, 1 =s tne cae 
K=K-1 

END IF 

K=K+1 

STACK Ra iNe lee 

Flse 1f the element is "-", 
ELSE IF (INF(I,1).8&Q.'-') THEN 


the Ifa 


if the next character of the same element 1S da AUWim@emueeee 


eS 


Crarar 


AAD 


Ce ote mee ceo emees eme = | 15 the sympol of the 
Subtraction, place the element in the postiilx expression. 


Coenen were O'S AND. INR(?.2).05.'9').CR. 
1 INF(I ay ao. 7a. THEN 
DP=pp+] 
DO ee 
PeSmtiSP, J)=INFC1I.J) 
END DO 


Else the second element is a letter, also place it on 
Ene pOstiix. 


BeSmeepe Gl) 2)eGho A SAND. INF(!,2).LE.'Z') THEN 
PP=Pp+] 
Bem= ie 
POST(PP,J)=INF(I,J) 
ND DO 


Else, 1f the stack is not empty and the topmost element 
Tao Miom—nOot imum lace the topmost elemenc of 
@iewewstaex On the postfix and push™into the stack the 
next element. 


ELSE 
IF (K.NE.O.AND.STACK(K).NE.'(') THEN 
PP=PP+] 
POST(PP,1)=STACK(K) 
K=K-l 
END IF 
K=K+l 
Sa eck) =INei. 1) 
END IF 


Peete mmexe Clement is "*" or "/", 
eo eeeeee INE Glo jo. '*'. OR VINE (Il 1).BOQ.'/') THEN 


if the topmost element of the stack is an operator with 


homermamlemley +’) “or "(> push t into the stack, 
eon enn ero. + aOR sSTACK(K) a0. =',.OR.STACK(K). 
1 Oren ) THEN 
K=K+l 


SPA@ Ga = (NE (171) 
else until the stack is empty or the "(" delimiter is 
SnCOUmuectceympceetne stack and place the operators oon 
the poste x eee oe 


ELSE 
DO WHILE(K.NE. O. RDS PACK. NE. (7) 


Waite 


PP=pD-1 
POST(PP,1)=STACK(X) 
R=Ae 8 
END DO 
K=K+l1l 
STACK(K)=INF(1I,12) 
END IF 


If the next element is of hihger priority ("""), Susie 
inte the Stade 


ELSE IF (INFCL 1) 2800" Soe 
K=K+1 
STACK (K)=T Nims) 


If it 18 “(", also DUSA 1tiitemee me cca 


ELSE IF (INF(1,/)D)3o0—"( ) taa7 
K=K+1 
STACK (X.) = GNia ale 


But if it is a ")", pop the stack and plag@euiame 
operators on the postfix until the "(" 1s encounters 


ELSE IF (INF(1,1).580.')" )) foen 
DO WHILE( STACKVK) NE = ae 
PP=Pp+] 
POST (PP,1)=STACK (KK) 
K=K-1 
END DO 
K=K-1 
END IF 
END DO 


At the end if the stack 1S not empty, pop it Umtuaia 
empty. 


IF (K.NE.0O) THEN 
DO WHILE(K.NE.0Q) 
PP=PPp+] 
POST(PP,1)=STACK(K) 
K=K-1l 
END DO 
END IF 
RETURN 
END 


CREEK KKKKKKKKKKKKKK KKK KK KEK KKK RK KK KKK KA K KKK KKK KKK KKK RRR AK KR KK KKK 


SUBROUTINE EVAL(LOGOLD, POST, RES,PP, INDEX) NG) 04) Neem 
il K, FUN /ARG) GER 


CRRKRKKKKRKKRKKKK KKK KR KK KKK KKK KKK KKK RAK KKK KKK AK KK KKK KKK KK KKK KK KKK 


ies 7 


LVemoonewe mew ls iisecd  seueValilate a DOStrlx expression 
using the push-down stack technique 


ARGUMENTS : 

ROGORDE a tie wrGlweecren deecess f1loe containing @ehe dat 
before any transformation. The same file i 
USeeremeoPeneomneme 9§Gata, after <transitormetion 
have peen performed to them. 


A WA Os 


eos l >; Two dimention array Soe ng the DOSec 1 x 
expresison. 

RES >; The result of the expression. 

PP : The number of elements in rhe Dest si 
expression. 

INDEX : Pointer marking the end of mnemonic names in 


the array (COLMNE) that stores column mnemonics 
and transformations. 


NC : The index of the array COLMNE. 

JK 

NCOL : The number of columns. 

26 ° 

FUN : Array storing the name of the iUinies Le ms 
contained in an expression. 

ARG : The argument of the function. 

IERR Placa ted i iicGeiayca  tGmrunmctlon arguments or 


Gav SVGMaDy sZer]o . 
PA ck kK Kk XK XK KR RR eK KKK KK REA K KEK KK KKK KR KK KKK KKK KKK KKK KKK KS 


CHOY OY CY Ore 0) Or OrGy Ge) Ginter ©) Gia@re@ (0101) Clare @ 


IMPLICIT INTEGER*2 (I-N) 

INTEGER*2 NC,PP, INDEX, POINT,CN 

REAL*4 STACK(24),X(128),0P1,0P2,0P,RES,R,ARG,AP 
poner | POstT( 13,14) VAL 14) > DUM(14), FUN(5) ,COL(3), 
1 CONS(14),FUN1(5) 


CHARACTER*5S FUNS 
EQUIVALENCE (FUNS,FUN1(1)) 


IERR=0 
L=l 

c For @€ach element of the postf1x expression. 
DO [=1,PP 

Cc If the element is a letter, 


Pe O i ewmemreote a VAN, POST(1,!)5LE.'Z') THEN 
J=1l 


eee miMm@emmr teow. | 81s emcountered the characters of the 
Mone Eevee caine. in. FUN. 


or 


188 


CVON0) 


co 


ClO 


DO WHILE(P 
FUN(J)= 
J=osu 

END DO 

Joo 

PO 

DO WH lie caus) 
lo= a | 
JA=JA+1 
PUNIeh | 

END DO 

JA=Q 

DO WH P@aremie LT 5) 
LJ= lo 
JA=JA+1 
BUND Glo == UO New 

END DO 

J=ieu 

KA= I 


‘Uo 


Store until "]" is encountered the numbers 
contained between the brackets and representing 
COLUMN =nuUmMbes In array. Cel 


DO ‘WHILECPOST (1-3). NE ae) 
COLCKA)=POST( Ia) 
KA=KA+1 
J=J+1 

END DO 


Decode the characters of COL to obtain the Aumeen 
Of Gon umm, 


DECODE( 2 F100 Gol me. 
FORMAT (I<KA-1>) 


Using the uncoded column number CN assign the value 
of the Corresponding) column as argument to the 
Peete) 

ARG=X(CN) 

Compute the value of the function. 

CALL COMP(FUNS5,ARG,AP, IERR) 


Push the result into the stack. 


STACK (2) —=A2 
i= ae 


lee 


er (elna) 


200 


- 
"os Off 


Bees ce pee do climmemeneement Of the DOStrix is ".", 


(3) 


LS 


Peelore2OsGT Cr 1) .c0.°!") THEN 
i 

KB=1 

Place the mumbpers (characters) contained betveen 
the brackets im array COL. 


DOH US hEeomor. ds). NE. ' )°) 
GOmeGee pes i, J) 
I=] 
KB=KB+1 

END DO 


Decoeco ey Pio mmeGOnMteOne ote GoOlL, OdDtain the number of 
comin GN ameeouUstedmeomude stack the corresponding 
column value. 


PECODE 342 00meoOL) GN 
FORMAT (I<KB-1>) 
STACK (iy =x (CN) 

L=L+l 


Else if the current element of the post iS a number 
or 


1? bh | 
. , 


PUSEee VP eSl (i lj) 7Gaew ee ,AND.POST(I,1).LE.'9"). 
Crs Ool wig), EO. on) THEN 
J=1 
KC=1 


Store the characters of this element in the array 
CONS. 


Demme (POST weer. OC .AND,POST(I,J).LE. 
So eOR., pOSTenweuee tO... ) 
GONS< KG) =PosT( i -7) 
J=Ie0 
KC=KC+]1 
END DO 
POINT=0 


Pind the sgesitionvot=".", 
DO k= he = | 
DP GONSIGm. ese O. =) THEN 
POINT=IK 


END) a 
END DO 


MamiOumgGimtt exi1ses them add a point 


0 


500 


300 


CVO Cre) 


600 


400 


IF (POINE. 2070) oe 
CONG UAC =: 


Gecode the number and push it into the Soe 


DECODE(KC,500,CONS) OP 
FORMAT (F<KC-1>.0) 
STACK (L) =OP 

b= Ga 


else decode the representation of a real andeouew 
LE“1nto Tine. Stale 


ELSE 
DECODE(KC-1,300,CONS) OP 
FORMAT (F<KC-2>.<KC-1-POINT>) 
STACK (L) =OP 
L=L+l 

END IF 


If the element is ">= Sieve examine the second 
character to determine if represents subtraction or 4 
negetive value 1S present. In the first case treaz 
the "-" as the other operators while in the ‘Seem 
negate the following the sign value. 


ELSE IF (POST(I,1).EQ.'-') THEN 
IF (POST(I,2).GE.'0’ .AND.POST(1,2).LE. * 3S yee 
c=2 
Ke | 
DO WHILE((POST(I,J).GE.'0'.AND.POST( 1 /d ye 
'9') (OR. POST (1 2 EC ae 
CONS (RDU=PoOst > 
J=J+1 
KD=KD+1 
END DO 
POINT=0 
DO IK=2,KD-1l 
IF (CONS(IK) -2Om ee) loe 
POINT=IK 
END IF 
END DO 
IF (POINT.EQ.0) THEN 
CONS (KG) = = 
DECODE(KD,600,CONS) OP 
FORMAT (F<KD-1>.0) 
STACK (LL) —@e 
L=L+1 
Ess a. 
DECODE(KD-1,400,CONS) OP 
FORMAT (F<KD-2>.<KD-1-POINT>) 


Hal 


STACK (L)=-OP 
L=L+l 

END IF 

PeSt err ear( i 2),20, '° [") THEN 

J=3 

Kes 

DOnWramme (POST (I,JI).NE.')') 
G@Omon= )=PesT(!,J) 


3-9 +1 
KE=AB+1 
END DO 
DECODE(3,800,COL) CN 
800 FORMAT (I<KE-1>) 
STACK (L)=-X(CN) 
L=L+l 
eon mee eG Te eGew 2 | AND,POST(1I,2),.LE.'Z' ) 
if THEN 
J=2 


Be WHILE (POST( 1 ;J).NE.'[ 
BUM /=POSt( 1 a) 
J=J+1 

END DO 

tees — 

TJ=0 

DOeA UES. (TALL «5 
oe tl. 

JA=JA+l 
RUNG =" | 

END DO 

a= 0 

POedMlhe (ld .uT., 3) 
roo | 
JA=JA+1 
FUN1(IJ)=FUN(JA) 

END DO 

J=J+1 

he 

BOn Verma POST (I,J) NE.’ ]*) 
GOI Ke I=POSTi1 J) 


KF=KF+1 
J=d+i 
END DO 
BE@@DE (3. 700,COL) CN 
700 FORMAT (I<KF-1>) 
ARG=X(CN) 


CALL COMP(FUNS,ARG,AP,IERR) 
STACK (L)=-AP 
L=L+l 
ELSE 
= le 
OP2=STACK(L) 
fo) 


2 


Wae® 


lag) I 
i POST(1,1).8Q. "/"  ORela@ s tera 


OPL=STACK(ZL) 


R=OP1-Ce2 
Se iy) Se 
L=L+l 

END IF 


If the element is an operator, pop the two (Gpm@ee 
elements of the stack, anoply the overator to them 
and push the result into thems eae. 

ELSE. ly POs 


f 


aa ee 
HOO% 


EO. "eR oece 
b= 
OP 2=si Gen, 
Lee 
OP l=Si Gren: 
LF UPOS@ Gee =.2 
R=OP1+OP2 
ELSE Ip (POST(? (1) 2Oe areas. 
R=OP1*OP2 
ELSE TF (POST(1,1) BO.) = tHe 
IF (OP2.NE.0) THEN 
R=OP1/0OP2 
ESS 
{i BeR=2 
RETURN 
END IF 
ELSE IF (POST(1,1).EO@ = ) tine 
R=OP1**OP2 
END IF 
STACK (L)=R 
Laie i 
END IF 
END DO 
B= 
RES=STACK(L) 


Oe Teen 


i3 


RETURN 
END 


een RAK KKK AKER KKK AAA KK KAKK KK KK ERK KKEEKKEKKKEKRKAKKK EKER KEKE KARE KKK KK 


SeeeOUMeie, DISBAn Esc, IMP; NCOL ,NROW, IOPEN, ICLOSE) 


CRRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKK KKK KKK KK KKK KKK KK KK KK KR KK 


C 

Gc [irae sueroutiIme 1s  wWsed for the display of all or any 
C user assigned part of the data file. 

2 

C ARGUMENTS 

iS 

meee, IMP = Input/Output logical numbers for terminal. 

oe NCOL : Number of columns. 

C NROW : Number of rows. 

ey LOPEN : If equal to 1, assign and open the direct-access 
€ data file and output display. 

me (CLOSE ; If equal to 1, close the direct-access data file. 
Cc 

c 


DPX eACK ORCA AKAMA RK ARK KK kerr eek KKK KR KKK KKK KKK KKK KKK KK KEKE 


IMPLICIT INTEGER*2 (I-N) 

BYTE STRING(72),FMT1(72) ,FMT2(72) 
CHARACTER*7 MODCOL ,MODROW 
CHARACTER*72 FMTC1,FMTC2 
CHARACTER*45 DEVDIR, NAME*10 


REA * daw te? 3 ) 
DIMENSION NOCOL( 256) , NOROW( 2048) 


BQUIVALENCE (FMTC1,FMT1(1)),(FMTC2,FMT2(1)) 
Dain OGemD. IMP 2/2, //DEVDIR-NAME/'’DUAQ :',' ‘'/ 
DAdtAMODeOt, columns’ /MODROW/ ' rows ' / 
PA Mee, Alo “Pid, 6)'/ 
ie Declare LOGOLD unit data file. 
PE SCLOPEN.EO®.1) THEN 
NBYTES=NCOL*4 
WRITE( IMP,100) 
CALL FICH('069!',LOGOLD,1,DEVDIR,NAME,NROW,NBYTES,1, 
l *DIRECT' , LEC, IMP) 
C DicplaysOuUtTpUt Unit attribute, 


CALL ENSORT(LEC, IMP, IMP2) ‘ 
END IF 


194 


C Display conditions for 4euoumgen 


CALL ANADIS(LEC, IMP,NCOL*2,NCOL,NOCOL , NSGOQR emacs 
IF(NBCOL.EQ.0) RETURN 


G Display condieloens torwee.—- 


CALL ANADIS(LEC,IMP,NROW ,NROW,NOROW,NBROW ,MODROW) 
IF(NBROW.EQ.0) RETURN 


NOUT=0 


c Change FORMATS for output. 
CALL FORM(LEC,IMP,FMTC1,FMT2,N,I1) 


DO WHILE (NOUT.LT.NBCOL) 
I BEG=NOUT+1 
IEND=IBEG+N-1l 
IF(IEND.GT.NBCOL) THEN 


IEND=NBCOL 
END IF 
e POL yee | Uns. 


M=IEND-IBEG+1 
ENCODE(2,200,FMT1(07)) M 
Ec PoREumede nisi 1 ag. 
M=5+M*I1 
ENCODE(2,200,FMT1(25)) M 
WRITE(IMP2,FMT1) (NOCOL() ) = J=I8e6, fan. 
T=l 
DO WHILE(I.LE.NBROW) 


READ ( LOGOLD' NOROW(1)) (X(o) -ag=L, Nee 
WRITE(IMP2,FMT2) NOROW(I),(X(NOCOL(J)) ,J=IBEG, IEND) 
I=I+l 

END DO 

NOUT=NOUT+N 


END DO 


IF (1CLOSE.EOQ.1) CLOSE. (E@eGerE 
RETURN 


C Formats. 


100 FORMAT(//4X,'Name of the existing data file ;7) 
200 PORMAT (12) 


END 


CRRRKKKK KKK KKK KR KARR KK KR RR KR RK Rk RK RK kk kk kk ok ok kok ok kok ok kok ok kok ok ok kok ok ok ok ok ok 


SUBROUTINE FORM( LEC, IMP) EMRG1) =item 


CRRKK KKK KR KR KK RK KR KR RK KK KKK KR Rk kk RR Rk KR kk kk kok Kk Ak kok kk ok kok kok ok ok ok ok ok & 


G 


i 


Cthat 


100 


300 


Pemiunomr ne Ses. 6eo determine tne format of 
will be displayed. 


c1 


PAPwICIT INTEGER*=2 (2-N) 


Eee OMe 72) eM 2072)  STRING( 72) 
GHARACTER*72 FMTG, =MTC1 


EQUIVALENCE (FMTC,FMT(1)) 
De eae erm x8, | OK) SIX, 750\-\)/)'/ 


Because compiler does no admit quotes inside the chain, 
they are changed by '\' and substituted after. 


FMT (28)=039 
FMT (30) =039 


WRITE( IMP,100) 
FORMAT(/4X,'The normal format is : nannann.nannnn' 
1 a 5 re 


Z Uomnod@aye lt asSsiaqmmyour format (ex. nan.nn) <CR> ;") 
Read the user assigned FORMAT. 


READ(LEC,200) STRING 
FORMAT (72A1) 


Peontir= 0 
r= | 
POMWHILE(SERING(I).NE.' *) 
Psi NG esou .<") LPOINT=I 
LT=[+l 
END DO 


Data formal. 


IF (1.8Q.1) THEN 
HORM Oat orl4.G) for Data. 
T1l=14 
[POINT=8 
ESE 
For general format for Data. 
Pac POINT.20.0) THEN 
IPOINT=I 
I1l=] 
OSs 
Tl=I-l 
END IF 
Ess wales 


PNGO@Ez. 200) FMT2(08)) T1 
FORMAT (12) 


l=1) > 2eans 
ENCODE(2, 300. =4i21)) == 
DO = ae 

BM ee 
END DO 


Cc Format ¢@e. aa es 


Pa=( se 
I4=I1-(13+3) 


[fF (13.NE.0 tH EeN 

ENCODE (2.3003 eMT (10) a2 
ELSE 

PMin eae 

EM. ee 
END IF 
IF (I4.NE.0) THEN 

ENCODE (2-300 Sah 7 era 
ELSE 

EME to) =" — 

FMT(19)=' ' 
END IF 


PMT C1 = 5 Me 
RETURN 


END 


CK KK KKK KKK KKKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK 


SUBROUTINE SEEDAT( LEC, IMP,NCOL,NROW, IOPEN, ICLOSE) 


CRRK KKK KKKKK KK RK KKK KKK KKK KK KK KKK KKK KKK KKK KARA RKKRKE KKK KK KKK KK KKK 


C 


C 
G 
C 
c 
C 
C 
e 
C 


ESC ae 
NEOE 
NROW 
TOPEN 


CLOSE 


Input/Output logical numbers for termina 
Number of columns. 

Number of rows. 

If equal to 1, assign and open the direc o-de@umm 
data file and outpurtvertsola 

If equal to 1, close the direct-access dataiuumem 


RR KKK KKK KEK KERR KKK KKK KK KEK KKK KKK KEK KK KK KKK KKK KKK RA KK RK ee 


IMPLICIT INTEGER*2 (l—ip 


Da 


Cr 2 ere Rao -DEVDIn, NAMES” 10 
Coe e Crema, MODCOL, MODROW 


BYTE STRING (80) 
Roane 2 oe SZ) 
DIMENSION NOCOL(256) ,NOROW( 2048) 


De emecCoumet 42/2 7/MEV01R,NAME/'DUAO :',' '/ 
1GORD, 12345 ,678/ 18eU/07 
DATA eVOOGGLY Gcolumnis ~MODROW/' rows’ / 
DeGilarewLeOGoLbeummes adata file. 
IF (IOPEN.EQ.1) THEN 

NBYTES=NCOL*4 

WRITE( IMP,100) 

CAG (io ce eeOGOren, | DEVDIR, NAME,NROW,NBYTSS,1, 
l OL REGT LEC, IMP) 

Disokey CULDUEmUnIt “ahturiboute. 


CALL ENSORT(LEC, IMP,IMP2) 
Boe 


Display conditions for columns. 


Clean eo ls LEG, IMP, NCOL~2,NCOL, NOCOL, NBCOL,MODCOL) 
TEiNSEOG, HO, 0) RETURN 


Display conditions for rows. 


CALL ANADIS(LEC,IMP,NROW ,NROW,NOROW,NBROW,MODROW) 
IF(NBROW.EQ.0) RETURN 


NB=0 
Flags for evental continuation lines if last 
character=','. 

IWRIT=1 

ICONT=1 


Dein Com elGONT. FO. 1) 


— we eee eee i 


a ee Sierra 

IF (IWRIT.NE.O) WRITE(IMP,600) 
ho mene 7 00) “STRING 
IWRET=0 


Analysis of the string. 
NCAR=80 


eS 


DO WHILE (STRING(NCAR).=0.* ') 
NCAR=NCAR-1 

END DO 

IF (STRING(NGAR) .EQO." ,  ) 3a 
LCONT= i 
STRING (NG = (ae 

ELSE 
NCAR=NCAR#+1 

END IF 

rGOuL—o 

IBEG =1 


= 
DO WHILE (I.LT.NCAR) 
T=[+l 
'GOLD' can be any letter. 
IF ((STRING(I).GE.'A' .AND.STRING( 1!) 702. 2 oe 
(STRING(I).GE.'a'. AND.STRING(I) .LE.°2Z ee 
IF (1GOLD. 2670) = iHen 
WRITE(IMP,200) GOLD 
READ (LEG, 300) s6@npe 
IF (GOLD2.NEMO.) GO@nb=cerE2 
END IF 
NB=NB+1l 
Y (NB) =GOLD 


DO WHILE (STRING(I).NE.','.AND.1.LT.NGAR =e 
STRING(I).NE.' ') 
T=I+1 
END DO 
piss 


IPOINT=0 
DO WHILE (STRING ( 
STRING ( 
IF(STRING(I).E 
ol 

END DO 

IEND=I-1l 

Number : nnn 

IF (TPOINT . EQ. 0) THEN 
STRING(I) 
IPOINT 
IEND 

END IF 

I[l=IEND-IBEG+1 

I2=Il-IPOINT+IBEG-1 

NB=NB+1 

DECODE(1I1,400,STRING(IBEG)) Y(NB) 

END IF 
IBEG=I+l 
END DO 


iy .', AND. 1I.LT.NCAR GSR 
i ). ? t ) 
Oe mo POINT =s 


I 
i! 


19:9 


e 


100 
200 


300 
400 
500 


600 
700 


DO WHILE(K.LT.NBROW) 

K=K+l 

Rew GbOGOLb NOROw Kj x(L), L=l,NCOL) 

Dene NECOL 

DO N=1,NB 
eo. NOC 2) 8.1 (N))) THEN 

INDEX=NCOL* (NOROW(K)-1)+NOCOL(L) 
IFOU=IFOU+1 
WRITE(IMP2,500)IFOU,INDEX,NOCOL(L) ,NOROW(X), 


l Y(N) 
END IF 
END DO 
END DO 
END DO 
Pee Ghose. 2O, 1) CLOSE (LOGOLD) 
RETURN 
Formats. 


FORMAT(//4X,'Name of the existing data file :') 
FORMAT(/4X,'Missing value “gold” number is : ',F9.3// 
iis, skemeenange or RETURN : ‘} 

FORMAT(F18.8) 

BORMAT (r= tik. <12>) 

Dome vsunmek Imgexs -',16.' ,Column : ',14,' ,Line +’, 
ice -- Valuers” Fil4,6) 

FORMAT(/'S',3X,'Data to be retrieved (real or "goid") : ‘') 
FORMAT (80A1) 


END 


CREEK KKRKRKKKKK KEK RRKKRKK RRR KKK KK KKK KKK KK RRR KKK KKK KKK KKK KKK RK KKK KKK 


SUBROUTINE ANADIS(LEC, IMP,MAXDIM,N,NOCORO, NELEM, MODE) 


CEKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KKK 


Ore 


Ona ra 


This subroutine ANADIS analyses the assignement for columns 
Siaerews tirOugm aestring given by the user in four modes. 


Examples : Comments 
A Oey loin ea Mica Vomceeolumnis Or rows. 
ol sSeake “all ~columns Ore Gow ss 


between the lower and upper 
boundaries. 


200 


O O (Ola @ 


FOO) 1 Oe!) 


take 
co /unins 


oon i oe ae 
One 


successively 
rows, 
in the diven Graeme 


tne 
even 


named 
repeted 


Oe r OWS 


(columps am 


'colimmes 


4), 4 take a single column or row, 
Soe 1-3) 22S ee mixing modes 2) 9 .and@. 3m 
ARGUMENTS 
LEC and IMP Logical numbers for input/output Xevooemem 
MAXDIM Maximum dimension for NOCORO(). 
N : Maximum number of columns (NCOL) 
(NROW) . 
NCORO Nos. of the displayed columns or rows. 
NELEM Total number of elements to take 
rows). 
MODE Represents a chain of Characters 
OT ee vic 


CRERKKKKKKRKKKKKKKKKKKKKKKRKEKKKEKKKKRAKKRKRAKKKRKK KKK KK KK KK KK KK 


IMPLICIT INTEGER*2 (I-N) 
DIMENSION NOCORO(MAXDIM) 
CHARACTER*7 MODE 

BYTE STRING(80) 

nica zat tom 

NELEM=1 

lines 


evental  GConeinuaelen 


Plags te: 
character=', 
IWATE i 
ICONT=1 


DO“WHILE At GOnT eo) 


[Input sta ine 

IF (IWRIT.NE.O) WRITE! (Me iaiae 
READ (LEC,200) STRING 
IWRIT=0 


MODE 


20a 


et 


-_ 


lass 


CrOrer 


Gere bye ses ong 
aes UR ING (iy ee Orgel EN 
NELEM=0 
Be cURN 
END SLE 


Paeelececluns cememmessare displayed. (* or any letters. 
ie oRNG (ioe ken. *' OR. 
Peco Ne cH Ae AND SERINGCT)<.LE.'Z').OR. 
Pee ING och. a eAND-STRING(1).LE.'z')) THEN 
Pen l—-. Ni 
NOCORO(1)=1 
END DO 
NELEM=N 
RETURN 
END IF 


String analysis. 


= i 
DOeWiEee ee ShRING( 1) Nee * ) 


Conmecoleor Slringe validity. 


oO nm 


Pat SrReNnG(l).Ge. O°. AND. STRING( 1) 2Le. ) 
THEN 


I) 
1 CSERING Io coO, 2’ SOR .STRING( IT) 780." ,' 
ELSE 
NELEM=0 
WRITE( IMP, 400) 
RETURN 
END IF 


oe 
)) 


aoaveom Oweuuanae dipper botindarres (ex: 3:8). 


mmc em eee we eee i 


Olav ane Gli stwean numbers (ex: 2.5,8.3). 
pectoral). hO, 7° .OR.STRING( 1) 2nO.':') THEN 
IEND=I-1 
DECODE(NCAR, 300,STRING(IBEG) ) NOCORO(NELEM) 
IF (NOCORO(NELEM).GT.N) THEN 
WRITE(IMP,500) N 
NELEM=0 
RETURN 
END IF 
CeeoTR ING Oe eon) ) THEN 
TSER= 1 
ELSE 
ME (STRING (DT) SEO.) J OTHEN 
IF (ISER.EQ.1) THEN 
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NBEG=NOCOR@ (Nee ae ee 

NEND=NOCORO(NELEM) 

DO J=NB2G,) 22 
NELEM=NELEM+. 


NOCORO(NELEM) =J 


END TDS 
ISER=0 
ENDS 
BND ike 
END ele 
NCAR=0 


NELEM=NELEM+I 
PBEG=2 spl 


ELSE 
NCAR=NCAR+ 1 
END IF 
l= Fe 
END DO 
e If the number of delimiters 18S zero 
G Just one column or row 1S displayed (exgeue 
CG oo aes as ae ees = a Se Se ae es ae Se a Sa as a ee eee 
IF (NELEM.EQ.1) THEN 
l= la 
DECODE ( I,300,STRING(IBEG) ) NOCORO(1) 
LP A NOGORG WW GT aN sl tren 
WRITE(IMP,500) N 
NELEM=0 
RETURN 
ELSE 
END IF 
ELSE 
c Analyse string residual. 
C re a NN yp ee a ee 
DECODE (NCAR, 300,STRING(IBEG)) NOCORO(NELEM) 
IF (NOCORO(NELEM).GT.N) THEN 
WRITE(IMP,500) N 
NELEM=0 
RETURN 
ELSE 
C For continuation line, if last character eee 
IF (NOCORO(NELEM).EQ.0) THEN 
LeEONt=1 
ELSE 


IF (ISER.EQ.1) THEN 
NBEG=NOCORO(NELEM-1)+1 
NEND=NOCORO (NELEM) 
NELEM=NELEM-1 
DO J=NBEG,NEND 

NELEM=NELEM+1 
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100 
200 
300 
400 


500 


C**x 


Ccx** 


Grane) (ln) 4a) Gn eC Monnet OI) (@ air) 


NOCORO(NELEM) =J 
END DS 
BND TF 
END IF 
Nigar 
END SbF 


RETURN 
FOr ices. 


EO@cVVGbwe 3k Asean mois). Ofe',A/;,' : ') 
FORMAT (80A1) 

FORMAT (I<I>) 

BRORMAT p67" INVALID INPUT ! ! 

IM imicmeecomiUumerical AND/ZOR "“," or “:")') 
FORMAT (@0 /° NUMBER EXCEEDS',16,' !t'°) 


END 


MRE Rk eK Re ee eR RK RK RR KR KK EKER KR RRR KER RKEK ERK KREKRREKRREREREKRE RE 


SUBROUTINE FICH(NNN,NLOGIC, IAUT, DEVDIR,NAME,NENR,NBYTES, 
Hl ISTAT, ACCESS, LEC, IMP) 


Mikko hr RR KKK KKK KKK KKK KKK KKK RR KEK KR KEK KR KKK KKK RRR KKK KKK KKK 


This Subroutine permits to Open, within a FORTRAN Program 
at Run Time, Specific Files named BORN , OAM ah Or 
Ga! eulret ion and deletion Or general Files named 
"file name.ext'. These Files may be used for Unformatted 
Direct Fixed Access or Formatted Sequential Variable Access 


ARGUMENTS 
'NNN' Can be 3 {0,9} numerical equivalent characters 
Smiley isepymarney (ex: “O12', '326', a key : 'G1l3', 'TT2') 
If NNN=' *‘, the File will be named as the content of NAME. 
ee) AOt, the File will be named as 'FORnnn.DAT', ex: 


PEORO] 2. DAT, 

nNeeOGlLG = Legical Unit nmumber. 

ITAUT : If ITAUT.NE.O, Input the 3 characters Key, the File 
1s named as 'FORKey.DAT', or Input NAME. If IAUT=0, 
the File is named as 'FORNNN.DAT', or ‘'name' 


PS ie nackte Oc Deytcevand Directory-Subdirectory 
femecmebe DUAG Jom “DUAQG:{DIRECTORY.SUBdir]* for 
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ex, , NO Chameer 
NAME : If NNN= ' ', asks Dy A@yDOd7a Che Sameera 
when IAUT,N=E.0. NAME contents uD tO 10 Ghawe 


a 


NENR : Maximum records number. 


NBYTES : Number of SYTES Ser> XeG@omeume a. 
transformation itn ful] @32eeweee = es, “MUST De a 
multiple of 4 BYTES (If not, BELL rings, a meee 
and a complementation occur) 


ACCESS : li) biREGer. DIRECT, UNFORMATTED, Fi1A2D  SeQQ0eee 
otherwise : SEQUENTIAL, FORMATTED, VARIASLE }oaequee 

ISTAT : If ISTA=0 : ‘NEW’, Otherwise: oeen 

INDX : Associated Variable for Unformatted Direct Access, 
not a dummy argument, it will be autG=ggeee 


Incremented,COMMON /INDEX/INDX must be oresent in 
the calling program. Be CAREFULL, INDX 15 Gomme 
for all the opened files.If no COMMON /INDEX/INDX 
or Using another integer variable, no auto-s0Sst-— 
Incrementation, when READ or WRITE. 


KEKKKKKKEKKKEKKEKKEKKKRKKKKKRK KKK KEK RK RK KK KKK KK KK RK KK KE KK KK Bee 


Examples 
NNN IAUT NAME OUE Stake x RESUS 
ein 0 ee None FORnnn.DAT 
Laey Q ae None FORKey. DAT 
oan 0 ‘name .cage. None name.ext 
De Q ae NAME ? NAME 
weabal ecm 1 = nee 2 FORKey. DAT 
ag 1 — NAME ? NAME 
Remark : Priority 1s always given to ‘nnn’ or “Key ]iee 
present. 


KREKKKKKRKEKEKEKREKKR KR KKK KKK KEK KKK KKK KKK KK KEK A A eee 


IMPLICIT INTEGER*2 (I-N) 


O AOA OAAAOAAOAANAANOOADANYDOANNONAOANON ON AOA Awe Oe aera ne 


CHARACTER*3 FOR,NNN,KEY,STAT, BAT*4, DEY ~ 3) ee eee 
LACCESS*6,DIR*40,DEVDIR=25 pri ee os eee 


C 

COMMON /INDEX/INDX 
c 

DATA FOR,EXT/' FOR = 3b eeiay 2b omy cil. 
C 
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100 
200 
oo 


400 


Ci 02 oS Oe eee 


Le ( DeYDiR seo.’ “)THEN 


WRITS! IMP; L00)NLOGIC 


enV ei sMouwree soe ee so 13, (if Default : <CR> : ') 
READ( LEC, 200) DEV 

FORMAT (AS) 

WRITE( IMP, 300)NLOGIC 

Meg 5D rectory, ©Or File’ ,:3,' (If Default : <CR>) :') 


READ(LEC,400)DIR 
FORMAT (A40) 
DEVDIR=DEV//DIR 
ELSE 
Cal Aweno. Oy ToEN 
PQiNNe nO. 9 ) THEN 
IF(NAME.EQ.' ') THEN 
WRITE(IMP,500)NLOGIC 
FPORMAT('’SName for File',I3,' : ') 
READ(LEC,600)NAME 
FORMAT(A10) 
BES E 
END IF 


DEDINA=DEVDIR//NAME 
EO7TO 1 


ELSE 
END IF 


DEDINA=DEVDIR//FOR//NNN//EXT 
COero ew! 


ELSE 
GaeNNNe BO. * ' ) THEN 
WRITE(IMP,500)NLOGIC 
READ( LEC, 600) NAME 
DEDINA=DEVDIR//NAME 
Gere 
ELSE 


WRITE(IMP,700)NLOGIC,NNN 
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700 FORMAT (/ soa. 

‘Key (xxx) mes 

Stn oe 

READ(LEC,800)KEY 

800 FORMAT (A3) 
DEDINA=DEVDIR//FOR/ /KEY//EXKT 
CGO ALO wa 


FilewPORXXX DAT AUmMDe rm 
t 


4 
(J 


) 


ihOorS 


END Sie 
a Ds 
ENG a Es 
Assign File to a logical Unit. 
IP{ LSTAT. EO. 0) ataeN 
STAT='NEW' 
Bese 
STAT = Ob Bb: 
END aw 


Control the Access Mede 


CrOn@® © O QO On Gee) O O O) 


IF(ACCESS.EQ.'DIRECT' ) THEN 
NMOT32=INT(NBYTES/4 ) 
IF (MOD(NBYTES,4).NE.0) THEN 


If a message wanted. 
WRITE(IMP,900) BELL 
00 FORMAT(/1X,Al,' ERROR IN RECORDSIZE ARGUMENT, ' 
1 "MUST BE A MULTIPLE Ones 
NMOT 3 2=NMOT 32+1 
NBYTES=NMOT 32*4 


[O° Ga) OM OD 


ELSE 

BND 

OPEN(unit=NLOGIC, name=DEDINA,status=STAT, 
laccess='DIRECT' , records1ze=NMOT32,recordtype= FIXB@ee 
Z2initialsize=NENR,form='UNFORMATTED', 
3associatevariable=INDX) 


ELSE 
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OPEN ene e-NLOG IG, mame-OEDINA,Status=STAT, 
Pee ss- Slo OUENT hoe  feeoras!:Ze=N3a7T=S, 
Preconuce Cees aneees Init ialsize=NENR,form='FORMATTED'! 


c 

END ie 
Cc 

RETURN 
c 

END 


CR RK KKKKKKKKKKEKKKKKKRKKKKEKEKKKKEKE KKK KK KKK KR KKK RK KKK KKK KR KKK KK KKK 


SUBROUTINE EXSHEL(X,NO,N,IND) 


Me AK KAKK KKK KAEKKKKREKKKKKEKKKRAAKKKKKKKRKEKEKKKKEKKKKEKKKKAEK KKK KK KX 


Subroutine for internal and address calculation sort using 
the Shell's method to rank elements XK in increasing order 
and modified for address calculations. 


ARGUMENTS 

Xx te rements LO SOrt. 

NO : Address calculation for the rank. 

N : Number of elements to sort. 

IND : If >Q0 elements are ranged in increasing order, if 


not, in decreasing order. 


Reference : Shell Donald L. (1959) : “A High-Speed Sorting 
Procedure » Gomm "Or ~tme ACM, vol.2, July, 
Dime oc. 


PPEexKeK <n x mR ROKR RRR KAR KK KK KKK ARK KKK KEK KR KK KEK KKK RK KK ERR EKER K KKK KKK 


IMPLICIT INTEGER*2 (I-N) 


Elements X and TEMP can be declared as:: 
Socks 2eOne a REAL ~4, *8, *16 ,CHARACTER 


Ore Gre reir nna ene) (late) Ke) Cal merc rc) ©) O) 


REAL*4 X(N) ,TEMP 
DIMENSION NO(N) 


a 
1 New) — a 
‘a 
M=N 
M=M/2 
E 
DO WHILE(M.GT.0O) 
DOm om tM 
NMM=N-M 
DO 4 I=K,NMM,M 
oo 
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IPM=I+M 
TEMP = X( IPM) 
NOTEMP=NO(IPM) 
2 [PUN Gee0) Gos 
IF(TEMP.GT.A(0) )G@erome 
ELSE 
IF (TEMP.LE.X(J ) )@@emome 
END IF 
JPM=J+M 
KX (Jeo) = a) 
NO( JPM) =NO(J) 
J=JI-M 
[FCs .GE Gon 1 Ome 
3 JPM=J+M 
X( JPM) =TEMP 
NO( JPM) =NOTEMP 


4 CONTINUE 
5 CONT LENGE 
M=M/2 
END DO 
G 
ee OR 
C 
END 


CRRK KKK KK KKK RK KKK KKK KKK KKK RK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KK KX 


SUBROUTINE EXSH1(X,NO,N, IND) 


CRRKKK KKK KK KKK KKK KKK KKK KR KK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KK KKK 


IMPLICIT INTEGER*2 (I-N) 
INTEGER*2 X(N),TEMP 
DIMENSION NO(N) 


C 
l NO Gla) — 1 
€ 
M=N 
M=M/2 
C 
DO WHILE(M.GT.0O) 
DO: 5. K=1-M 
NMM=N-M 
DO 4 I[=K,NMM,M 
a1 
IPM=I+M 
TEMP = X(IPM) 
NOTEMP=NO(IPM) 
2 ’ IFC IND.GE.0) THEN 
IF(TEMP.GT.X(J))GO TO 3 
ELSE ; 


IF(TEMP.LE.Atd Gem emee 
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O1 = 


J=J-M 
CeCe Go “FOr 2 
JPM=J+M 
X( JPM) =TEMP 
NO( JPM) =NOTEMP 


CON TUNG 
CONTINUE 
M=M/2 

END DO 

RETURN 

END 


CRKKKKKKKKKKKKEKKKKKRKKKEKE KK KK KKK KR KK KKK RRR KKK KKK KKK RK RK KR KKK KK 


SUBROUTINE ENSORT(NIN,NOUT,NPRINT) 


CRKKKRKKKKKKKRKKKK KKK KKK KK KKK KKK KK RK KR KKK KKK KKK KKK KK KK KK KKK KK KK 


A ‘@) QO @) ern) OY Ore Oy Grara: GO) © 6) Cy Cra 


Pies ODeouUrlne permits Input/Output modifications or 
Besmommemes fOr Dnysical Input or/and Output, or/and Print 
for Devices or Files within a FORTRAN Program or Subroutine. 


ARGUMENTS 


NIN and NOUT are the respective Logical FORTRAN 
numbers for Input and Output (for Terminal 

in general) and NPRINT for Print (for Printer 
in general, but may be used for Terminal Outpdut 
Severe OuUEDUG) . 


SUBROUTINE called 
INOUT (NLOGIC,I,MODE) 


erie ee ee EGR 2a] Ni) 


Sal ror Inout. 

Gree eNOouONIN, 1, 
Saiieror Outputs 

Gebel N@wa NOUT, 2,0} 
Saree tOr OUR pur-Print. 

GALL INOUT(NPRINT, 3,0) 


RETURN 
END 


ZnO) 


oa 


C** 


x x 


OO OM 0V 01 0 01919 0) 0) O20) Oe ee 


CHO) 


OVO?) 


es 


100 


KaKKKEK KK KKK KK KKK KKK KKK KKK KKK KEK KKK KEK K KKK KK KR © Ree 


SUBROUTINE INOUT(NLOGIC, I ,MODE) 


KKK KK KK KK KKK KKK KKK EK KK KKK KK KKK KKK KKK KK KK KK eee 
This Subroutine permits to OPEN Devices or/and = ieeueee 
associate within any FORTRAN Program or SupDroutine ae 


fl mMen 
ARGUMENTS 


NLOGIC : FORTRAN logical number associate to the Une 
OPEN, (NIN, NOUT,NPRINT in tne calling moculeym 

I >: Index (1): Input, (2): OUTput (for ehiniaeee 
general), (3) : Print-Output (for Prin@emae 
File in general). 

MODE - (0): 'NEW', (1): 'OLD', otherwise: ‘unk mg geeee 


ant 


SUBROUTINE Called : None. 


KKEKKKKKKRKEKKKKKKRKEKRKEKRKKKKK KKK KKK KKK KR KKK KKK EKER EK eee 


IMPLICIT INTEGER*2 (I-N) 


CHARAGCTER@40 KEY, NUL 

KEY 1S Accept via the Keyboard at RUN time, 
CHARACTER*28 DEV(3) 

DEV() is Typed on the Terminal in fonGticmeciam 
GCHARAGTER =~) 3 yore 3) 

STA() is referenced as 'NEW','OLD' or ‘unknown' in fonction 
Of MODE = 
DIMENSION NSYS(3),INCOM(3) 

NSYS() represents the general used logical numbers for 
inguts-. Oumour “and Pia ener INCOM(), the relative 
incompatibility for the NSYS() ee 


DAA NUS 7 
DATA DEV/' Input Device (or File) >: ', ‘Output Deva 
1 (or File) : ',' Print Device (or File) Ca 
DATA STAAVNEW |. OLD i, 
DAT AY NSYS/ 57,0 +67 DNGOM/ 64> 7 

Incompatibilities Input with OutsUue Ingemar a 


IF (NLOGIC.EQ.NSYS(I)) RETURN 
IF(NLOGIC.GT.0.AND.NLOGIC.NE. INGOM(U1 Gem o me 
NLOGIC=NSYS(T) 
RETURN 
On System Terminal. 
TYPE 100,DEV(IL) 
PORMAT(/ | Sse ce 
ACCEPT 200,KEY 


Zip 


Cx** 


Cx*xx 


Geer O@) Pi nein 


x *& 


COO Orel nee Ca One (a Oe) 


FORMAT (A40) 
IF(KBEY.EQ.NUL) RETURN 
If Change. 
@LOSHNLOG IC) 
IF (MODE.LT.0O.OR.MODE.GT.2)MODE=2 
Seo enn = (Peele wan e-A9Y Stacus=STA(MODE+!) ) 

RETURN 
END 


kek hee Oe ree ce kk ke cree ee A KK KK RK KKK KKK KKK KKK KKK KEK KK 


Spe Ome eat el Vee G PME ONAOW,1J,iND,1, (BIT, :OPEN, 
i TCLOSE) 


Reh XK KK KR KK AKC KK RK RAK KR KKK KEK KKK KKK KKK KKK KKK * 


Hisnsoucim@ewNtOn Tejection Of rows ("logical suppression”); 
these rows are not physically suppressed but are jus? 
Seti nase nOner EUeuUrem—mealculus if the Ith. row 1 
associated to the binary value zero store in the assigned 
rejected values support "binary" sequential file given by 
clo ickeige 


yy (er SC 


ARGUMENTS 

Pere ie ss: simeut/Oucput logical numbers for Terminal. 

NROW MeOrcaolMnumeer GSOt= rowS@@tor the Data matrix 
NCOL*NROW. 

IJ : Integer array that contains compressed binary 
i semmaeioem Or reyection. 

IND If IND=0 : to examine bits level. 

tf IND=l : to load bits level. 

I ; Ith examination 1f IND=0. 

he E Sev aie 0 or lete, return if IND=0. 

IOPEN fee eee tals §6@. Si.) te Ooen alsequential file to 


SO moO lies 


“ICLOSE weeomecamaletom!, fo close the Sequential file. 


SUBROUTINES called : COMPO1 for binary compression, 
BOR tom D1tS Manipltlation. 


KEKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KOK KKK 
IMPLICIT INTEGER*2 (I-N) 


Compression : dimension of IJ() = 2048/NBITW to read a 
wingike record. 


INTEGER*2 NOROW( 2048) ,NO(2048),17(128) 


GHAR AGibea2 45) DEVDIR;, NAME*10 
GHARAGIER”™ 7 MODROW 


Zee 


100 


200 
300 


DATA DEVDIR,NAME/ DUAU -) ee 
DATA MODROW/' rows' /LCGSUP/3/NOCOLS 0/27 eee ee 
MAXDIM=(NROW* NCOLS-1) /Nwi TW—1 


IF (IND.EQO.2) taea 


[IE (lOPEN aCe) tna 
Assign rejected rows support "binary" sequential 
file according to the WRITE 2ORMe er 
WRITE(IMP,100) 
CALL FICH ('076',LOGSUP,1,DEVDIR, NAME, 1) 202 

i USEQUENTIAL® -REG ya iee 

END Sie 

Select rejected rows ("logical stippresst@naum 

WRITE( IMP, 200) 

CALL ANADIS(LEC,IMP,NROW, NROW,NOROW, NBROW, MCDROW) 


Initialization = Set all valtee, ome 
CAGE COMP01(IJ,MAXDIM,NCOLS ,NROW,1,J,1,NB3i1n ee 


Change selected rejectable values to QO. 
DO L=1,NBROW 
CALL COMPO1(IJ,MAXDIM, NCOLS,NROW, NOROW( LL) Jy Ge 


1 NBITW,2,1) 
END DO 
WRITE (LOGSUP, 300) IJ 

ELSE 


TF (IlOPEN. HO. 1) sn EN 
Assign rejected rows support "binary" sequentia 
file according to the WRitse senate 
WRITE(IMP,100) 
CALL FICH('076' , LOGSUP,1, DEVDIR, NAME; 1 ag eee 
1 SEQUENTIAL Soa Gren 
READ ULOGSUP 200 a 
Ee al 
CALL COMP01(IJ,MAXDIM,NCOLS,NROW,1,J, [BIG )NB! Tage 
END? we 


IF (ICLOSE.EQ.1) CLOSE(LOGSUP) 


RETURN 


FORMAT(/4X, 'Assign sequential file for reiected vaiues’ 
pee es) 

FORMAT(/'S',3X,'Assign rejected rows for calculus jae 
FORMAT(16(818/) ) 


END 


CREEK KKK KKK KKK KEK KK KKK KEKE KEK KK RK KEK KR KEK KER KKK KKK KEK KK KK KKK KKK KK KK KKK 


SUBROUTINE COMPO1(IJ,MAXDIM,NCOL,NROW,I,J,I1BIT,NBITW, 


2AkS 


il Pion) 


ee KE EERE RK KERR RA AA RR RR KRERAK RK KKK KKK 


MEes oe @ouULIne 1s Used =o Get or sez the Dinary value 2 or 
@eleom a Compressed binary matrix NRCW*NCOL for any I's ane 
ey J's. 

©) ARGUMENTS 

eS IJ : Integer one machine word Dy element <inat 
C represents the stored binary values (0,1). 

C MAXDIM : Dimension of the compressed table IJ(). 

on NCOL wax imumeyvalie for tne J's, (number of columns). 

C NROW icon aite er tae f° Ss, (number of rows). 

ol. J HenGeclal Valiewros fF and J. 

ey (BIT : Set of return the binary value. 

eesti tw ; Number of bits per word (16, 32, 36). 

ce INT [eee Or le imttralize to one of these values, 

‘a Otherwise, no action. 

e IND : If IND=0 : examine bits level and return the value 
e Pair, 

Meir @IND=! =: Set bit level to the current IBIT. 

C 

MC OEROUTINE called : BITOl for bits manipulations. 

et ks dace e eran eee ae ees eeee eRe 


IMPLICIT INTEGER*2 (I-N) 
Pelee ome K Drm) STTSar( 36), BIT( 36) 
C CMeebriatat Ton tO 0 or 1. 


Peer =O 
iad ENE OsO2OR.INT.EO.1) THEN 
Po wehNie tO iar NiT=—1 
DO K=1,MAXDIM 
oe) — No 
END DO 


Eo 
MP IGOCeos COM ~adiime ore set DbltES for the actual I's and J's. 
MeeeHAS®: I :; Calculate bit no. : NOBIT, index NOW of the one 
C  -~--------- word array IJ() and position NOPOS in the word 
c Mieco NSITW) . 
NOBIT=J+NCOL*(I-1) 


NOW =(NOBIT-1)/NBITW+1 
NOPOS=NOBIT- (NOW-1) *NBITW 
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PHASE II : Examine and return bei@eor See —2Omes! sone 
= SSS. ae ar Glare 


Set the correct bit to tne value IND, witnous 22 2ecu mone 
other bits of meeNoy 


[IF (IND.EQ.1) THEN 
DO Kawa T 
Brtsen th 6 a2 


END DO 
BITSET(NOPOS)=IBIT 
CALL BITO] (IJ(NOW), IND, 3I1T, BITSE? Sea 
ELSE 


Examine the correct bit value Of 1g (he ee 
CALL. Brtos (IJ (NOW), IND, BIT, BITSET,NBITW) 
IBIT=BIT(NOPOS) 
Ea oe 
END IF 
RETURN 


END 


CER KK KK KK KKK KK KK KKKKKKKKKKKK KKK RK KKK KKK KKK KKK KKK KK KKK KKK KEK KK 


SUBROUTINE BITO1(I,IND,BIT,BITSET,NBITW) 


CRRK KKK KEK KKK KKK K KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 


ume, ©) @eanw Cae) C10) 1) 0) OOO) OM 


Machine independent subroutine to examine or set to a value 
QOorl the bits of any machine word equivalent to a gives 
integer I. 


ARGUMENTS 

NBITW : Number of bits per machine word or considered DV 
the system. Hi@ila the VAX11, NBITW=16 and 
INTEGER* 2. (NBITWth... oo tine St h, 7th, 6th oa 
ttniesth, 2nd ne 

I : INTEGER (NBITW bits) (ex.: NBITW=16, 32 OGRuee 

IND >; If IND=0 : examine the NBITW bits level and 


store the result in BIT(). 
If IND=0 : set the NBITW obits level GE 
according the elements of BITSET() equal to 0 0 
ee 
Bite : Give the content of the NBITW bigeec cee 
BITSET() : If the content is 0, set the corresponding Oijeue 
Dat omle 
[If the content 1s 1, set the corresponding Diam 
cei Oa 
otherwise, no effect On Ene Tmpegee ae 


Yt 74 


Zee 





Roe on oNeS 

Cs bee (1953) Se eivgn ~ level multilanguage machine- 
iiGePenGememenocrammaclon (16, 32% 36 bits) : A 
Suosotet emma | SltES Manipulations in SAS:C and 


Lowen iol yO COS. RTL] SIGMeMinw=Tasker, voids, 
oer = elon 


COO rele ir Ne) med 


Scr Rn Ke Kee K Km RAK KKK RR RR KKK KKK KEKE KKK KR RRR RRR KKK KKK KKK KKK 


IMPLICIT INTEGER*2 (I-N) 


[MeGER*2 BITS2T( 36) S17 ( 36) 


© | PHASE I Seanehmomeenewores evel for the field integer ° 
c ee a ae ec ee se ae ee ee a oe el en ee ee oe ee ee 
ic Examination of the bits level of the integer I. 


NBR=NBITW-1 
[P=] 
BIT(NBITW) =0 
eGrr. oso) THEN 
c IP 18 previously a negative integer. 
Bl oN iw) = 1 
IP=IP+2.**(NBITW-1) 
END IF 
c IP 1s a positive integer. 
DO J=1,NBR 
BIT(J)=MOD(IP,2) 
IP=IP/2 
END DO 


IF (IND.EQ,.0) RETURN 


MeeetAs= II : Possible changes of the actual level of the bits. 
iO ne ee ee eee a ae ee ee ee es ee ee ee eee ee cae a 
e Set bits of integer I to 0 or 1 if required. 


B@og—-l NEI TW 
PEeSmtsen | J) .NE.O0) THEN 
Peo ost (3). BO, )) THEN 
BIT oa) 
BETSeioe) )=—1 
END IF 
ELSE 
BIT clo 
BITSET(J)=-1 
END IF 
END DO 


ZAG 


Ba BO) 


Integer I reconsticution Using Hormeauaemen —e 
I=BIT(NBR) 
N=NBR-1 
DO -J=Ny 
l=) ~2- 50 2 
END DO 


If I 18 a negative number. 
IF (BIT(NBITW) 20.1) 1=1-25"% (hea 


RETURN 


END 
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